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35 0 MODULE QUEUEUTIL 


BEGIN 


| 
See ARERR EEA EEEEREEEE 
' 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE _— AND gt 
'® ONLY IN ACCORDANCE THE TERM F SUCH baceiee AND WITH THE 
!® INCLUSION OF THE ABOVE  potere NOTICE. THIS SOFT ARE OR ANY OTHER 
t* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
% 
® 
® 
® 
*® 
® 
ie TRANSFERRED. . 
® 
® 
® 
® 
® 
® 
® 
® 
® 
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!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: Cmeonatitn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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3 'e¢ 
' FACILITY: 
$2 ! Job controller. 
5 i ABSTRACT: 
$ This module contains utility routines to manipulate the job queue. 
38 i ENVIRONMENT: 
0039 i VAX/VMS user and kernel mode. 

0 0040 lee 

1 0041 i 

; ope AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 

4 0044 i MODIFIED BY: 

5 0045 ! 

6 0046 ! v03-007 KPLO002 P Lieberwirth, 23-Jul-1984 | 
+4 Bnet Protect routine DEQUEVE_OPEN_ JOB as in V03-006. 
49 0049 1 | v03-006 KPLO001 P Lieberwirth, 9-Jul-1984 | 
50 0050 ! Protect routine COMPLETE_JOB against common form of queue file 
2) Bo) } corruption = specifically an invalid SJH. 
3g $088 ! v03-005 MLJ0115 _. Martin L. Jack, 30-Jul-1983 14:55 
20 bee Changes for job controller baselevel. 

56 0056 ' V03-004 MLJ0114 Martin L. Jack, 23-Jun-1983 5:02 
57 0057 : Changes for job controller baselevel and divide with RECORDUTL. 


5 
5 pe mperbepsss ates JERESIBE ORME WMSSELSMEGEEUR Be af 


H 28 0058 1! 

; O59 % } v03-003 MLJ0113 Martin L. Jack, 26-May-1983 21:08 

3 0 0966 : Changes for job controller baselevel.. 

Eg 062 1} v03-002 MLJ0112 Martin L. Jack, 29-Apr-1983 3:04 | 
3 o Ooei : Changes for job controller baselevel. 
: 65 0065 1} v03-001 MLJ0109 Martin L. Jack, 14-Apr-1983 12:47 
3 68 Boe$ : Changes for job controller baselevel. 

: 68 0068 1 


dD 65 
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vos 500 , 12-800- 138% 99: $i +3 JOBCTL.SRC dueuLctie. i} 2:1 ° (2) | 
“EE 0069 1 REQUIRE "SRC$:JOBCTLDEF'; 
: 71 1110 1 
; § 111 1 | 
me. 111 1 FORWARD ROUTINE 
> 113 «1 EN TER PROCESS_DATA: NOVALUE 
> 75 114 1 D PROCESS BATA: L_ouTPUT_3, 
: 2 1115 1 SEARCH QUEU es: L“OUTPUT“4. 
yas. 1116 1 DEQUEUE OPEN JOB: L“OUTPUT“1. 
: > 17 «1 ALLOCATE_ENTRY_NUMBER | 
. 7, 1118 1 DEALLOCATE ENTRY NUMBER : NOVALUE, 
: 80 1119 1 JOB. STATUS MESSAGE, 
; 5} 1120 1 NOTIFY USER. NOVALUE, 
: é 1121 1 PLETE JOB: NOVALUE, 
; 8 11 é 1 VALIDATE OBJECT_NAME, 
; 11 1 F IND_CHARACTERISTIC L_OUTPUT_1, 
: «85 1104 1 F IND~FORM_NAME : ~OUTPUT 2. 
: B86 1125 1 F IND~FORM-NUMBER: L~OUTPUT~2, 
$ 68f 1126 1 F IND QUEUE : L=OUTPUT=4, 
: 88 27 1 F IND-FORM_REFERENCES_J, 
> 89 1138 1 F IND~FORM-REF ERENCES; | 
: 90 1129 1 FIND-0 UEUE_REFERENCES_J, 
: 91 1130 1 F IND~QUEUE~REF ERENCES, | 
: 9 1131 1 DEALCOCATE™ VARIABLE _DATA: NOVALUE, 
: 9 113 1 FETCH_VARIABLE_ITE 
: 9% 11 1 FETCH-VARIABLE_ITEM_LIST, 
> 95 1134 1 FETCH” VARIABLE DATA: NOVALUE, 
: 96 1135 1 STORE VARIABLE DATA 
: 97 1136 1 STORE- VARIABLE _DATA_LIST; 
> 98 1137 1 
: Og 1138 1 
: 100 1139 1 EXTERNAL ROUTINE 
> 101 1140 1 AFTER_AST: NOVALUE , 
: 108 1141 1 ALLOCATE_MEMORY, 
: 10 1148 1 ALLOCATE RECORD: L_OUTPUT_2, 
> 104 1143 1 BROADCAST MESSAGE : NOVALUE , 
> 105 1144 1 DEALLOCATE RECORD LIST: NOVALUE, | 
: 106 1145 1 DELETE SJH~RECORD: NOVA 
: 107 1146 1 : L CsuTP Ut _2 NOVALUE, 
: 108 1147 1 READ_RECORD 
> 109 1148 1 RELEASE RECORD: NOVALUE, 
; 110 1149 1 REWRITE RECORD NOVALUE , 
> 111 1150 1 SCAN INCOMPLETE SERVICES: NOVALUE, 
: 112 1151 1 SpDATE GETQUI_DATA: NOVALUE ; 
: 11 1138 1 WRITE E RCCOUNTING,. RECORD: NOVALUE: | 
>: 114 1153 1 
: 115 1154 1 
> 116 1155 1 BUILTIN 
: 117 1156 1 EDIV 
: 118 1157 1 movc$ 
> 119 1158 1 TESTBITCS; 
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i 4 1e-8ep-19 4 90: 4537 JOBCTL.SRCJQUEVEUTIL.B52;1 . (3). 
: 1 


GLOBAL ROUTINE ENTER_PROCESS_DATA(TYPE,P1D,P1,P2): NOVALUE= 


‘e+ 


FUNCTIONAL DESCRIPTION: | 
This routine adds an entry to the process data structure. 


INPUT PARAMETERS: 
TYPE Process Fype. 


 y 1159 1 . 
. ; 1160 1 ‘ 
, ¥ 1161 1 ‘ 
: 126 1188 1 ° 
3 125 1165 1! ‘ 
*. § 1164 1! ‘ 
. | 1165 1! ° 
; 128 1168 1! ‘ 
: 129 1167 1! ~ ‘ 
; 130 1168 1! PID - Process | ‘ 
s 131 1169 1! Pi - (Optional) First parameter. ° 
: , ¢ 1109 : P2 - (Optional) Second parameter. | ° 
s 156 1176 1 ! IMPLICIT INPUTS: ° 
s 135 117 7 NONE ° 
.. 1174 1! ‘ 
tg 1175 1 =! OUTPUT PARAMETERS: ° 
: 138 1176 1! NONE ° 
3; 139 1177 1! ° 
; 140 1178 1 =! IMPLICIT OUTPUTS: ° 
3 (141 1179 1! NONE | ‘ 
: re 1180 1! ° 
s 16 1181 1 =! ROUTINE VALUE: 
3; 6144 Vee 1! NONE e 
: 1465 1183 1! ‘ 
3; 146 1184 1 ! SIDE EFFECTS: ° 
> 147 1185 1! NONE | : 
: 148 1186 1! | ‘ 
3 169 1187 1 !<- ‘ 
3 199 1188 1 ° 
3 151 1189 2 BEGIN ° 
; 152 1190 2 LOCAL ° 
3; 195 1191 2 PDB: REF BBLOCK, ! Pointer to PDB , 
3; «154 1138 2 PDE: REF BBLOCK; ! Pointer to PDB entry | : 
3s 155 1193 2 BUILT : 
3 «136 1194 2 ACTUALCOUNT; . 
: 157 1195 § ‘ 
; 158 1196 oe : ; . 
3 13) 1130 Search for an unused entry within the existing PDB List. : 
: 161 1199 PDB = .PROCESS_DATA_LIST; : 
3 166 1200 WHILE .PDB NEQ 0 DO ° 
: 16 4201 BEGIN : 
: 164 1 06 IF .PDBCPDB_COUNT] LSSU PDB_K_MAX . 
3 169 1 THEN ‘ 
3 166 1s 4 BEGIN : 
; 16 1205 4 PDE = PDBCPDB_ENTRIES] + .PDBCPDB_COUNT] * PDE_S_ENTRY; ° 
: 168 1206 4 EXITLOOP; ° 
: 169 1207 ; END; : 
: 170 1208 PDB = .PDBCPDB_LINK); | : 
: 171 1209 END; : 
: 176 1210 : 
; i 1211 reper ere ¢ 
: 1 ' 1g : If no free entry found, allocate and initialize a new page. : 
: 176 1214 IF .PDB EQL 0 : 
. oF 1215 THEN : 
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; 17 1 1 BEGIN | 
: 17 121 PDB = ALLOCATE MEMORY (); 

; 180 1 18 PDBCPDB_LINK] = .PROCESS_DATA_LIST; 

> 181 121 PROCESS DATA_LIST = .PDB? 

2% 2 1220 PDE = PDBLPDB_ENTRIESJ; 

: 18 1201 END; 

: 184 1 : 

: 185 1 
: 136 | : Initialize the PDB entry. 

: 188 1 7 PDBCPDB_COUNT] = .PDBCPDB_COUNT) + 1; 

> 189 1 PDECPDE-TYPE] = .TYPE; 
: 190 1208 2 PDECPDE-PID) = .PID; 
; 191 3 IF ACTUALCOUNT() GEQU 3 THEN PDECPDE = .P1; 

; 198 1231 


-TITLE QU ver it Queue manipulation utilities 
[IDENT \V04-000\ 


«PSECT COMMON,NOEXE, OVR,2 


P1] ; 
: IF ACTUAL COUNT () GEQU 4 THEN PDECPDE-P2] = .P2; 
00000 PIAG_STORAGE_BASE: | 

| 


BL 0 
00000 DIAG_TRACE: 
00060 D1AG_.COUNT: ve 
000CO DIAG FLAGS: : 
000C4 WORK_AREA: - ag 
OOOFO SNDUBC COUNT : on 
00174 GETaQuUI COUNT ie 
0019C SNDACC COUNT ss 
001B8 SNDSMB_ COUNT : ‘ | 
} 
00200 DIAG _STORAGE END: 
Ops R0 Ft AGS: .BLKB 4 
00204 IMAGE _DUMP_STSFLG: | 
.BCKB 4 | 
00208 THIS_SYSID: 
-BLKB 6 
0020 BLK 2 
00210 CUR_TIME: ’ 
00218 HOURLY_TIME : 
-BiKB 8 
00220 HOURLY_PARAMS : a 


-BLKB 
00234 SYMBIONT. COUNT: 
“BLKB 4 
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00238 QUEUE oAEFERENCE. COUNT: 
0023C MBX_MESSAGE COUNT: 

-BLRB 
20948 MBX: -BLKB 


<o 


0244 MBX END: -BLKB 
48 MEMORY FREE UEUES: 
00270 NONAST WORK QUEUE : 
00278 BCB_FREE.LIST: 
“BLKB 
0027¢ BCB_ACTIVE List: 
00280 GOL_FREE.LIST: 
00284 GQL_ACTIVE LIST: 
.BLKB 
00288 OPEN -GETaUI LIST: 
0028C PROCESS_DATA_LIST: 
00290 SYMBIONT. CONTROL : 
00294 SPARE ~AREA: 
002A0 REMOTE REQUEST. L 
002A8 QUEUE_FILE LKSB: 
00280 QUEUE_LOCK LKSB: 
.BCKB 


mn 


RSP -BLKB 
002C0 JBC ‘PRIORITY: 
002C4 JBC_PRIVILEGES: 
002CC yBC_QuOTAS: 


BRO © R @O @ eA ARR RR Rn omamnnn se 


-BLKB 
00310 JBC_UIC:.BLKB 
00314 QUEDE_FAB: 
-BLKB 80 
00364 QUEUE _RAB: 
-BLKB 68 
OO3A8 QUEUE _NAM: 
-BLKB 
00408 QUEUE _XAB: 
-BLKB | 
00460 QUEUE _RSA: 
-BLKB 


0055F -BLKB 
0560 QuEUE_ALQ: 


BLK 
00564 QUEUE MBF : 
00565 BLKB 
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00568 
00570 
00578 
005¢8 
0060C 
0066C 


00768 
0076C 


007B8C 
00800 
00860 


0095F 
00960 


00980 
OO9F4 
009F8 
00A00 
00E00 
00E00 
00E20 
00E20 
00E26 
OOE2A 
00E 32 
00E 33 
O0E 34 
QOE3A 
00E44 
00E45 
00E4B 
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ACCOUNTING FABS: 
-BLKB 8 
ACCOUNTING RABS: 
-BLKB 8 
ACCOUNT_FAB_A: 
-BL 80 
ACCOUNT_RAB_A: 
-BL 68 
ACCOUNT _NAM_A: 96 
ACCOUNT_RSA_A: 
-BLRB ig 
-BLKB 
ACCOUNT_FAB_B: 80 
ACCOUNT_RAB B: 
~BL 68 
ACCOUNT_NAM B: 
-BL 96 
ACCOUNT_RSA_B: 
-BLRB = 255 
-BLK 1 
DIAG_FAB: 
80 
DIAG_RAB: 
° 68 
MBX_ CHAN: 4 
MBX_IOSB: 
LK 8 
MBX _BUFFER: 
10 


VALUE _STORAGE BASE: 
ITEM sitet 

VALUE -seiau1 eases 

VALUE _ACCOUNTING MESSAGE : 
VALUE -ACEDUNT ING TYPES: 
VALUE _AFTER TIME: 

VALUE “ALIGNMENT ~PAGES: 

VALUE “BASE PRIORITY: 

VALUE _BATCH INPUT: 

VALUE “Bait i aa 

VALUE “BUFFER COUNT: 

VALUE -CWARACTERISTIC _NAME : 
VALUE “CHARACTERISTIC NUMBER : 
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GEM Sane eantontacton ert tete ACSEOBHE OOH RSL PUesaleathit Re 
-BLKB 1 
O0E4C VALUE. CHARACTERISTICS: 
OOESC VALUE_CHECKPOINT_DATA: 
00E62 vALUE.CLie” - 
00E68 VALUE_CPU DEFAULT: 
OOE6C VALUE_CPU LIMIT: 
00E70 VALUE DESTINATION. QUEUE : 
00E78 VALUE DEVICE NAME : 
OOE7E VALUE_ENTRY NUMBER 
O0E82 VALUE “eniey NUMBER OUTPUT: 
OOE8C VALUE “EXTEND QUANTITY: 
OOE8E VALUE FILE. COPIES: 
OOESF VALUE_FILE FADENTE ICATION: 
OOEB3 VALUE_FILE SETUP MODULES: 
00EB9 VALUE FILE SPECIFICATION: 
OOEBF VALUE_FIRST PAGE: 
00EC3 VALUE_F Om DESCRIPTION: 
00EC9 VALUE _FORM LENGTH: 
OOECA VALUE _FORM MARGIN. BOTTOM: 
00ECB VALUE _FORM MARGIN LEFT: 
O00ECD VALUE _FORM MARGIN. RIGHT: 
OOECF VALUE -FORM MARGIN, TOP: 
OOEDO VALUE FORM NAME : 
QOED6 VALUE FORK NUMBE 
OOEDA VALUE FOR: 
OOEE2 VALUE -FORR SETUP 
OOEE8 VALUE FORM Stock: 
OOEEE VALUE_FORM WIDTH: 
OOEFO VALUE GENERIC. TA 


MODULES: 


6 
R: 
4 
8 
9 
6 
2 
RGET: 
9 


GE 
96 
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01204 
01205 
01206 
0120¢ 
0122 
0126 
O12EA 
012F4 
012F8 
O12FE 
01306 
0130C 
01312 
01318 
0131C 
01322 
01328 
0132€ 
01334 
0133A 
01340 
01346 
0134C 
01352 
01353 
01359 
01350 
01363 
01369 
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JOBCTL SREIOUEUEUTIL.B 2:1 
VALUE_JOB_ COPIES: 

LKB ot 
VALUE_JOB_LIMIT: 
VALUE_JOB RARE : ; 
VALUE JOB RESET MODULES: 
VALUE _ JOB SIZE MAXIMUM: 
VALUE_ JOB SIZE MINIMUM: 
VALUE_ JOB STATUS, OUTPUT: 
VALUE_LAST PAGE 
VALUE ALIGRARY. SPECIFICATION: 
VALUE_LOG QUEUE: 
VALUE _LOG SPECIFICATION: 
VALUE _NOTE : 
VALUE -0PERATOR. REQUEST: 
VALUE_OWNER_ UIC: 
VALUE PAGE SETUP MODULES: 
VALUE PARAMETER. 
VALUE. PARAMETER, 
VALUE _PARANETER. 
VALUE _PARBAETER. 
VALUE “PARAHETER. 
VALUE “PARAHETER. 
VALUE “PARAUETER. 
VALUE “PARAHETER. 
VALUE -paignity: 
VALUE PROCESSOR: 
VALUE _PRaTECT 10 
VALUE -2uéUE: 
VALUE_QUEUE FILE SPECIFICATION: 
VALUE RELATIVE. PAGE : 
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K 5 
16-Sep-1984 4: AX-11 Blis 
14-Sep-1 1382 99: 3: 3 JOBCTL. SRC 
-BLKB 4 
VALUE _RESERVED_INPUT_1: 
-BLKB ~ 1 
VALUE_RESERVED_INPUT_2: 
-BLKB 
VALUE_RESERVED_INPUT_3: 
.BLKB ~ 4 
VALUE_RESERVED_INPUT_4: 
VALUE RESERVED OUTPUT. 1: 
VALUE RESERVED OUTPUT_2: 
VALUE_SEARCH_STRING: 
VALUE _SCSNODE_NAME : 
VALUE -WSDEF AULT: 
VALUE -WSEXTENT: , 
VALUE wsiUOTA: ; 


VALUE _STORAGE END: 
KB 0 


-32 v4.0 
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" CATE 
-EXTRN BROADCAST_MESSAGE 
~EXTRN DEAL LOCATE MEE CORD LIST 


-PSECT CODE, NOWRT, 2 
-ENTRY ENTER PROCESS DATA, Save R2,R3 
MOVAB PROCESS_DATA_CIST, R 

MOVL PROCESS-DATA_LIST, PDB 

4(PDB), #31 


ASHL (PDB), 
MOVAB BCRISEPDBY. BE 


2: MOVL (PDB), PDB 
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GLOBAL ROUTINE FIND_PROCESS_DATA(TYPE,PID,REMOVE; TY,P1,P2): L_OUTPUT_3= 


44 


' 
FUNCTIONAL DESCRIPTION: 
This routine looks up an entry in the process data structure. 


INPUT PARAMETERS: 
TYPE 


DOONAN 


AIA. A.AAA 


wr 
CONAN EWP 


- Type of aeeen 


PID - Process 

REMOVE - True if entry to be removed. 
OUTPUT PARAMETERS: 

TY - Type of process found. 

P1 - First parameter. 

P2 - Second parameter. 
IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: : 
True if the entry was found, false otherwise. 


WN =O OONAUES WN O OONOUS WN —O0ON 


| 

| 

| 

IMPLICIT INPUTS: | 
NONE 

| 


ee ec ce ee ee cc ce ce ee ee ce ee ce ee ce ce ee ce cD ce ce ee ce ce ee ce ce ee ce el cel ce ce ee ce ee ee ce ee ee ee ee ee eed ee 
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2 

2 

2 

§ 
2 SIDE EFFECTS: 
2 NONE | 
2 | 
2 2 - 
2 2 
2 2 BEGIN 
2 2 LOCAL | 
2 ; PDB: REF BBLOCK; ' Pointer to PDB | 

| 

3 2 PDB = .PROCESS_DATA_LIST; | 
3 2 WHILE .PDB NEQ~O DO 
3 2 BEGIN 
34 2 LOCAL 
= 3 PDE REF BBLOCK; ! Pointer to PDB entry | 
37 2 PDE = PDBCPDB_ENTRIES); 
38 : INCR CBN FROM TO .PDBCPDB_COUNTJ-1 DO | 
40 277 IF .PDECPDE_PID] EQL .PID 
41 278 AND (. TYPE EQL PDE_K_ANY OR .TYPE EQL .PDECPDE_TYPE]) 
4g 279 THEN 
4 280 BEG! 
44 281 TY = .PDECPDE_TYPE); 
45 382 Pl = .PDECPDE-P1); 
46 28 P2 = .PDECPDE~P2); 
47 84 IF .REMOVE 
48 8S THEN 
49 6 BEGIN 
50 28 PDBLPDB_COUNT] = .PDBLPDB_COUNT) - 1; 
51 288 CHSCOPYT 


QUEVEUTIL Queue manipulation utilities 1b-se -1 AX-11 Bliss-32 V Page 13. 
vitae 14- se0-1944 99: 433} ‘OBCTL SRC ReioucututiL. ago, 1 ° (4) | 
: 25 1289 6 (. sppecrpe count - .CBN) * PDE_S_ENTRY, 
HS ‘tadidigiciaies 
; 255 1 % 4 ¢ PDBLPDB_ COUNT] - .0BN) * PDE_S_ENTRY + PDE_S_ENTRY, 
> 256 1293 6 PDE); 
; 92! 1294 2 END; | 
: 258 1295 RETURN TRUE: | 
; 359 1296 4 END; 
; 260 1297 4 PDE = .PDE + PDE_S_ENTRY; | 
; 261 1298 : END; 
: 362 1299 PDB = .PDBCPDB_LINK]; | 
3 se 1300 END; 
: 264 1301 
> 265 1308 
: 266 130 FALSE 
; 267 1304 1 END; | 
O1FC 00000 e ENTRY © dant tite Save R2,R3,R4,R5,R6,R7,- ; = 
5E 04 C2 00002 SUBL2 #4, SP : | 
57 00000000" EF 00 00005 MOVL §§PROCESS_DATA_LIST, PDB : 1263) 
51 13 0000C 1$: BEQL 7$ : 1269. 
56 08 A7 9E O000E MOVAB 8(R7), PDE : 1274, 
6E 04 A? DO 00012 MOVL 4(PDBS, (SP) : 1275 | 
58 01 CE 00016 MNEGL #1, CBN : 
3B 11 00019 BRB : 
08 Ac 66 D1 0001B 2s: CMPL (PDE), PID + 1277 
32 Ne 0001F BNE $ ; 
04 AC D5 00021 TSTL TYPE : 1278 
07 13 00084 BEQL $ ; 
04 Ab 04 AC D1 00026 CMPL TYPE, 4(PDE) : 
26 12 00028 BNEQ 5$ ; 
59 04 Abd 7D 0002D 38: MOVOQ 4(PDE), TY : 1281 
58 0C a6 DO 00031 MOVL  12(PDES, P2 : 1283 
16 OC AC €E9 00035 BLBC REMOVE, > 1284 
04 A? D7 900 9 DECL 4(PDB) + 1287 
50 04 A? 58 C3 0003C SUBL3. CBN, 4(PDB), RO : 1289 
50 10 ¢4 00041 MULL2 #16, RO ; 
51 10 AO SE 00044 MOV 16(RO), R1 : 1292 
51 00 10 Ab 30 2¢ 00048 MOVCS RO, 16(PDE), #0, R1, (PDE) + 129 | 
50 01 00 O004F 4$: MOVL #1, RO + 1295 
04 005¢ RET F 
56 10 C9 005 5$: ADDL2 #16 : 1297 
C1 58 of F2 00056 6$: AOBLSS (PS CBN, 2$ : 1275 
57 67 DO 0005A MOVL PpBs, : 1299 
AD 11 0005D BRB i$ + 1269 
50 D4 0005F 7$ CLRL — RO > 1304. 
04 00061 RET ; 


; Routine Size: 98 bytes, Routine Base: CODE + 0058 
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; 8 ! 05 } GLOBAL ROUTINE SEARCH_QUEUES( 

: eri 1 §$ 1 SMQ_NF, SMQ_F 

; 1308 1 ENTRY, JOBNAME, 

: eo? 1309 1 ACCESS_CHECK, 

: 276 1310 1 REMOVE, 
; 275 1311 1 CTX; 

; i \¢ SJH_N, SJH, SMQ_N, SMQ): L_OUTPUT_4= | 
; 278 1314 1 S44 | 
3; e279 1315 1! 

; 280 1 16 1 ! FUNCTIONAL DESCRIPTION: 
: a : \ : } This routine provides a general facility to search the job queues. 
: 28 1319 1 | INPUT PARAMETERS: | 
8 HH 1353 : } QsM - Bit mask that identifies queues to be searched. 
; 287 1398 1: SMQ_NF - Record number of SMQ to search. 

3 43 13s¢ : SMQ_F - Pointer to SMQ to search. 
3 soe 1368 : ENTRY - Address of job entry number, or 0 to denote wild. 
; 4 1328 1! JOBNAME - Short descriptor for job name, or 0 to denote wild. | 
: $3 1329 1! This parameter is Signi i tceas -_ if ENTRY is 0. 
3 Se 13s : Job name is implicitly qualified by username. 
; 38 1332 : ACCESS_CHECK - Address of access check routine, or 0 to denote none. 
e . | 
; 298 1334 1! REMOVE - Specifies if jee to be removed from queue. 

s $39 1335 1! QSM_K_NO_ REMOVE Never remove 

; 300 1336 1! QSM_K_REMOVE Always remove 

; eo +4 : QSM_K_REMOVE_INACTIVE Remove unless executing | 
; 0S 1339 1! CTX - Pointer to context area of size QSM_K CTXSIZE bytes 

; 304 1340 1! for wildcard operations (optional).” Initialize to 

: 305 1341 1! binary zeros prior to first call. 

: 306 1366 1! 

; 307 1343. 1 | IMPLICIT INPUTS: ; 

3 4 of: : MBX - Pointer to buffered mailbox message. 

: 10 1346 1 ! OUTPUT PARAMETERS: 

; «(311 1347 1! SJH_N - Record number of SJH. 
: \ 168 1! JH - Pointer to SJH. 

s 351 1349 1! SMQ_N - Record number of SQH or SMQ. | 
: 14 1350 1! SmQ - Pointer to SQH or SMQ. | 
3 315 1351 1! 

3 16 1326 1 ! IMPLICIT OUTPUTS: 
: 17 135 1! NONE 
; 318 1354 1! 

3 19 1322 1 ! ROUTINE VALUE: 

; 320 1 2$ 1! SS$_NORMAL - Job found. 

; 321 1357 1! JBCS_NOSUCHJOB = Job not found. 

3 $§ 1328 : : JBCS_NOPRIV - No privilege to operate on job. 

: 26 1320 1 ! SIDE EFFECTS: 

3 5 1361 1! NONE 


oc 


6 
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; 1362 1! 

: $ 1 $¢ 1 !e- 

3 8 1364 1 

; 1365 BEGIN 

5 0 1 66 MAP 

: 1 136 QSM: BBLOCK, ' Queue search bitmask 

; ; 1368 SMQ_F: REF BBLOCK ' Pointer to SMQ 

; 1 69 ENTRY: REF VECTORL,WORDJ, i Pointer to job ID or 0 

3 1370 JOBNAME : REF BBLOCK, ' Cescriptor for name or 0 
3 5 1371 CTX: REF VECTOR, ! Pointer to context block 
3 1 i SJH: REF BBLOCK, ' Pointer to SJH 

: 7 137 SMmQ: REF BBLOCK; ! Pointer to SQH or SMQ 

3 8 1374 LOCAL 

3 9 1375 LIST_OFFSET, ! Offset to List head in SQH or SMQ 
: 340 1376 QI1D, ' Queue type context 

:; 341 1377 SQX_N, ' Record number of SQXx 

3 rk 1378 SQX: REF BBLOCK, ' Pointer to SQx 

3 $ 1379 SQE_N ! Offset to SQX entry 

: 344 1380 SJH-NP, ' Record number of predecessor of SJH 
; 345 1381 SJH_P: REF BBLOCK; ! Pointer to predecessor of SJH 

; $09 1356 BUILTIN 

: 347 138 NULLPARAMETER; 

; 348 1384 

3; 349 1352 : : 
; 350 1386 ! Set up context for the search. If the context block is supplied, initialize 
5 $2) Bt context from the block; otherwise, initialize as for first call. 

; 328 1389 LIST_OFFSET = 0; 

> 354 1390 QID = 0; 

3 399 1391 SQX_N = 0; 

; 356 1 4 SQx = 0; 

3 S57 139 SQE_N = 0; 

3; ie 1394 SMQ_N = 0; 

; 359 1395 SMmQ = 0; 

; 360 1396 SJH_NP = 0; 

s 361 1397 = 0; 

: $06 1398 If ROT NULLPARAMETER(8) 

3 70 1399 THEN 

: 364 1400 BEGIN 

; 365 1401 LIST_OFFSET = CTX O13 
|; 366 1608 QID = -CTXC1); 

; a4 140 SQX_N = «CTX $4 

: 368 1404 SQx = -CTXC3); 

; 369 1405 SQE_N = -CTXE4); 

3; 370 1406 SMQ_N = -CTXC5); 

; 371 1407 MQ = CTX $i 

; Le: 1408 SJH_NP = CTXC7); 

.- or 1409 SJH_P = -CTX(8); 

3: 374 1410 END; 

: 375 1411 

; 376 116 : 

; Las 12h7 : Loop until a job is found, or until all queues have been searched. 

; 379 1415 WHILE TRUE DO 

3 $0 a BEGIN 

; 382 1418 ! If a new queue needs to be started, find the next queue that must be 
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} searched. If no more queues, return failure. 
if .LIST_OFFSET EQL 0 
THEN 

BEGIN 


' Loop that advances over queues until one that is selected by the 
queue selection criteria (QSM and SMQ) is found. 


WHILE TRUE DO 
BEGIN 


3 


“ 


WA 


Advance to next queue type. 
QID = .QID + 1; 


Case on the QID context to select the next queue type. 
CASE .QID FROM 1 TO 3 OF 
SET 


SESLELE Wis 
QESREVLSSSLESRANLSSE 


(1): ! open queue 
BE p q 


IF .QSMCQSM_V_OPEN) 
AND |» SAG_FCSRUSU_OPEN_JOB_COUNT? NEQ 0 


, te 
oo 
oo 


BEGIN 
LIST OFFSET = SBYTEOFFSET(SQHSL_OPEN_LIST); 
EXxITCOOP; 


END; 


C2): ' timer queue 


EGIN 
IF .QSMCQSM_V_TIMER] 
AND. SMQ_FCSHOSW, TIMER_JOB_COUNT] NEQ 0 


BEGIN 
LIST OFFSET = SBYTEOFFSET(SQHS$L_TIMER_LIST); 
EXITCOOP; 


WO OBONOU EWN 0 OBNAUNE WN 0 OONOUE WIN -OOONOU EWN O0 


PORIPORG — SS 
Ss RNS SaNonrwn—os 


o SSO SS SSE TS SS BEE EEE EE EWAN nonononononnonnen 
w 


a a a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
ay oy oe oe oe ot ot ot nt nt et et ot ot et ee ee ee ee ee ee 


SENNA AAD DID. SIND DDD IID. SSI DDO IAI TTI EE £* 


Poe oe oY ot oF >t ot ot nt at ot at at ot at at at ott eee 


END; 

. 
* $6 (33: ! pending queue 
32 68 IF .QSMCQSM_V_PENDING) 

$ AND.» SAQ_FCSRUSU_PENDING_JOB_COUNT NEQ 0 | 

5 71 
%6 2 IF .SMQ_FCSMQS$V_BATCH) 

3 7 A LIST_OFFSET = SBYTEOFFSET(SQHSL_PENDING_BATCH_LIST) 
8 ¢ exiTebop LIST“OFFSET = SBYTEOFFSET(SQHSL_PENDING_PRINT_LIST); 
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; 1678 END; : 
; 147 END; : 
: 1078 ° 
; 147 : 
: 1oRy COUTRANGE): : 
: 1481 6 : 
; 186 6 IF NOT .QID ° 
; 14 ) THEN ; 
; 1484 BEGIN | : 
: 1485 7 LOCAL ° 
: 1o59 7 SMQ_NP; ! Predecessor of new SMQ_N ; 
; 138 ? LABEL ‘ 
; 1486 7 FIND SELECTED; | : 
: 1489 7 ‘ 
; 1490 7 ‘ 
: 1491 7 ! Even value greater than 3; establish a new queue ‘ 
3 1336 7 ! header. ° 
; 1493 7 : ‘ 
; 1494 7 if .QSMCQSM_V_CURRENT] : 
: 1495 7 THE : 
; 1696 : FIND SELECTED: BEGIN : 
3 1498 8 ' Read the queue header if not yet done. : 
3 1499 8 : : 
; 1500 8 if .SMQ_N EQL 0 | : 
; 1501 8 T ‘ 
; 1502 8 SMQ = READ_RECORD(SMQ_N = SQHSK_RECNO); : 
; 1505 8 ° 
; 1504 8 ‘ 
3 1505 8 ! Including current queues; the requested cueuc and ‘ 
; 1506 8 ' all execution queues of the same type must be ; 
3 1507 8 ' examined. Execute a scan of the queue index to ‘ 
3 1508 8 ' locate these queues. ‘ 
; 1509 8 : : 
; 1510 8 SMQ_NP = .SMQ_N; : 
4 1511 8 SMQ_ ” o . 
H 13t¢ 8 ‘ 
; 1513 8 ; ‘ 
3 1318 4 Initialize to the first queue index block. : 
: 1516 8 if .SQX_N EQL 0 | : 
; 1517 8 THEN : 
; 1518 9 BEGIN : 
; 1519 9 SQX_N = .SMQCSQHSL_QUEUE_INDEX_LISTI; ° 
; 1520 9 SQE-N = SBYTEOFFSET(SYMST_DATA) - SQX$S_SQX; : 
; 1521 8 END; ° 
; 15 ¢ 8 | : 
3 15 8 ; | e 
; 1 3 ; Loop over queue index blocks. : 
: 15 § 8 WHILE .SQX_N NEQ 0 DO : 
; 1527 9 BEGIN : 
3 1528 9 LOCAL ‘ 
; 1529 9 SQX_NS; : 
, ue 3 : 
3 1532 9 ! Read the record if this has not been done. : 


ee = . ' 
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497 


if .SQX EGL U THEN SOX = READ_RECORD(.SOX_N); 


Loop over queue index entries. 
WHILE TRUE DO 
BEGIN 


SSSSSSS3S3S5 


SMQ_NP = .SMQ_N; 

IF 7SMQ_N LEQO SQH$K_RECNO 
THEN SMQ_N = .SMO_NF 
ELSE SMQ"N = 0; 

END; 


Wn & & EE 
Wr —O0Onou 


DPPAAATIVIW 


) 
| 
; 1533 9 
; 1 
; : ‘ | 
; 1 5 | 
3 1 9 
3 1 5 3 
; 1540 1 
: 1541 1 LOCAL 
3 1 og 1 SQE REF BBLOCK; 
: 13ce | 
; 1545 1 ! Advance to next entry, and ensure that it 
MEER blocs 
: \§ 1368 13 SQE_N = .SQE_N + SOX$S_SQX; 
; 51 1549 1 IF 7SQE_N GEQU SBYTEOFFSET(SYMST_DATA) + SQX$S_SQX * SQX$K_ENTRIES 
; 516 1550 10 THER EXITLOOP; 
3 319 1551 10 SQE = .SQX + .SQE_N; 
; 517 1338 19 IF CHSRCHAR(SQECSOX$T_NAMEJ) EQL O THEN EXITLOOP; 
: 518 1554 10 
3; S19 1555 \° ' Determine if this queue is interesting. 
$ 2s 1328 1 ! 
3: Ser 1557 10 IF .SQECSQX$L_QUEVE_LINK] EQL .SMQ NF 
; 25¢ 1558 11 OR (.SQECSQx$0_BATCA) EQL . SMQ_F CSMQ$V_BATCHI 
: * 1559 11 AND .SQECSOX$V_EXECUTOR]) 
: 5246 1560 10 N 
3 See 1561 11 N 
; 526 1366 11 SMQ_N = .SQECSQX$L_QUEVE_LINK]; 
3 Der 1565 11 LEAVE FIND_SELECTED; 
Bo le eo 
Ss 1566 9 ; 
ae })| 1567 9 
: 236 1308 4 Advance to next index record. 
; 534 1570 9 SQX_NS = .SQXCSYMSL_LINK]; 
; 535 1571 9 RELEASE _RECORD( . SQX_N) 
; 536 1376 9 S$Qx = 0; 
3 Sar 1573 9 SQX_N = .SQX_NS; 
F 238 1374 9 SEIN = $BYTEOFFSET(SYMST_DATA) - SQX$S_SQX; | 
3 end; 
: set 1399 ELSE 
: 4 1578 BEGIN 
3 2 1579 
: 5446 1580 ! Excluding current queues; only the requested queue | 
3 1581 8 ' must be examined. 
3 1386 : 
3 15 
3 15 
: 15 
: 15 | 
Ls 15 
: 15 7 
3 15 7 


<o 
oc 
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: 4 1590 7 ! Release the previous queue header, and read the next. 

; 555 31 f i If mo more queues, return with failure. 

3 § 1 38 7 IF .SMQ_NP NEQ 0 THEN RELEASE _RECORD(.SMQ_NP); 
; 28 1594 7 IF .SMQ°N EQL 0 THEN RETURN JBC$_NOSUCHJOB; 
: 559 1595 7 SMQ = READ_RECORD(.SMQ_N); | 
; 360 1 38 7? 
: 38) 1898 WN hold job f th header just 

: ! Now process ho ob queue of the queue header jus 

$ : 1898 7 ' established. 

: 5646 1600 7 i 
4 65 100) 7 IF .QSMCQSM_V_HOLD] 

: 66 16 ¢ 7 AND . N L .SMQ_N | 
; 567 1603 7 AND - SMQTSMQ$L_HOLD_CISTI NEQ 0 
3 228 1604 7 THEN 
; 569 1605 BEGIN 
; 570 bs LIST OFFSET = SBYTEOFFSET(SMQS$L_HOLD_LIST); 

3 a 160 EXITCOOP; 

3 Le; 1608 5 
; 37 1609 7 END 
: 574 1610 § ELSE 

s $75 1611 BEGIN 
: 576 161g 7 | 
3 ofr 1613 7 ! Odd value greater than 3; current job queue of the 
3 378 1918 4 queue header established by the previous value. | 
: 580 1616 7 if .QSMCQSM_V_CURRENT] 
; 581 1617 7 AND .SMQ_FCSMOS$V BATCH] EQL .SMOLSMQSV_BATCH] 
3 one 1618 7 AND .SMQESMQ$L_CORRENT_LIST) NEQ 0 
3; 38 1619 7 THEN 
; 586 1969 8 BEGIN 
; 585 1621 8 LIST OFFSET = SBYTEOFFSET(SMQ$L_CURRENT_LIST); | 
; 586 16 é 8 EX TCOOP; | 
s 387 16 END; 

; 588 1624 6 END; | 
: 589 1625 5 END; 
: 590 1626 5 
: a3) 1627 5 
5 4 1628 5 TES; 
; 59 1629 4 END; | 
3 a3¢ 1630 4 | 
; 595 163) 4 

; 596 16 4 IF .SMQ_N EQL 0 THEN SMQ = READ_RECORD(SMQ_N = SQHS$K_RECNO); 

: ree 163 4 SJH_NP = .SMQ_N; 

; 598 1634 4 SJH"P = 0; 

3; 599 1635 4 SJH-N = .SMQC.LIST_OFFSET.0,32.0); 

; 600 16 4 END 

: 803 1638 ee sip cm 0 

3 eos 16 3 THER SJH_N = .SMOC.LIST_ OFFSET,0,32,0) 

> 604 1640 ELSE SJH™N = .SJH_PCSYMSL_LINKI; 

; 605 1641 

3 606 1966 

; 60 164 ' Now search the queue. 

; 608 1644 : 

: 609 1645 WHILE .SJH_N NEQ 0 DO 

; 610 1646 4 BEGIN 
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; 61) 1647 ‘ suH = READ_RECORD(.SJH_N); | : 
: erg 1669 2 BEGIN 
3 614 1630 ~SMQ_NF EQL_.SJHCSJHSL_QUEUE_LINK] OR 
; 615 1651 g (.Q1B GTRU 3 AND .QID AND .SMG_NF EQL .SMQ_N) : 
; 616 16 ; END : 
: 818 1684 § AN BEGIN 
; 619 1635 IF .ENTRY NEQ 0 : 
; 621 1687 -ENTRYCO] EQL .SJHCSYMSL_ENTRY_NUMBER] | : 
: 858 1639 IF .JOBNAME EQL 0 | : 
3 624 1660 THEN : 
; 6 5 1661 - TRUE | : 
; 6 ; 1668 IF gj OBNAMELSDSC_W_LENGTH] EQL CHSRCHAR(SJHCSJHS$T_NAMEJ) : 
: 629 16s 8 CHSEQL ( | : 
; 630 1666 5 . JOBNAMECSDSC_W_LENGTH], .JOBNAMECSDSC_A_POINTER], | : 
3 e33 1667 5 ene SDSC_W_LENGTHJ, SJHCSJHST_NAMEJ41) AND : 
: | e 
; 6 ; 1669 : ACM$S_USERNAME, MBXCACMST_USERNAME J : 
: 636 1670 § SJHSS_USERNAME, SJHLSJHSTUSERNAME J5 : 
3 635 1671 3 ELSE : 
; 636 167¢ FALSE : 
; 6 1674 4 THEN | ; 
: 6 167% 8 COCAL | 
; 641 1677 5 REMOVING; ! True if removing this entry ; 
2 hee Bom: 
F of) 1980 ; If an access check was requested, execute it. : 
; 646 1682 iF .ACCESS_CHECK NEQ 0 : 
; 64 16835 5 THEN 3 
; 648 1684 5 IF NOT (.ACCESS_CHECK)(.SMQ_F, .SJH) ; 
: 836 1686 6 EN BEGIN ; 
: 651 1889 IF .SQX_N NEQ 0 : 
; 63¢ 1688 6 THER RELEASE_RECORD(.SQX_N); ; 
; 65 1689 6 IF .SMQ_N NEQ 0 AND .SMQ_N NEQ .SJH_NP j 
3 654 1690 6 THER RELEASE_RECORD(=SMQ_N); ; 
3; 655 1691 6 IF .SJH_NP_N : 
3 656 169¢ 6 THEN RELEASE _RECORD(.SJH_NP); ; 
; 657 1693 6 RELEASE_RECORD(.SJH_N); ; 
3; 658 1694 RETURN JBC$_NOPRIV; : 
; 659 1695 END; ; 
ess : 
; 66¢ 1698 ! Determine if we must remove the job, based on the input parameter | ; 
; oe; 44 and whether the job is executing. | : 
: 665 1704 REMOVING = TRUE; | : 
> 666 170¢ CASE .REMOVE FROM QSM_K_NO_REMOVE TO QSM_K_REMOVE_INACTIVE OF ; 
; 667 170 SET | 3 
| 
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; 668 1704 CQSM_K_NO REMOVE): ; 
; 66 1705 REMOVING = FALSE; | : 
; ef 1? COSM K REMOVE): ‘ 
; 67¢ 17 § Cosm_k _REMOVE _INAC Ive}: : 
3 67 17 me .SJH SINSVCE ECUTING] THEN REMOVING = FALSE; ; 
> 674 1710 : 
; 675 1711 : 
; o7e ar ‘ 
; 67 171 IF_ .REMOVING : 
; 678 1714 THE : 
; 679 1715 6 BEGIN | : 
; 680 1716 6 : 
; 681 1717 6 ! Adjust the job reference counts for queues Linked from the ‘ 
; 68 1718 6 : queue header. e 
; 68 1719 6 : ; 
3 684 1720 6 IF .Q1D LEQU 3 : 
; 685 1721 $ THEN : 
; 686 17 g BEGIN : 
; 687 1723 7 CASE .QI1D FROM 1 TO 3 OF : 
; 688 1724 7 SET : 
; 689 1725 7 | : 
; 690 17 $ ? COUTRANGE): | : 
3; (691 1727 7 0; : 
; 692 1728 7 : 
; 69 179 7 }: : 
3; 694 1730 7 SMQ_FCSMQ$W_OPEN_JOB COUNT] = : 
; 695 1731 7 . SMQ_F CSMQ$W_OPEN_JOB_ COUNT) - 1; | : 
; 696 1738 7 : 
; 697 1733 7 }: : 
; 698 1734 7 SMQ_FCSMQ$W_TIMER_JOB_COUNT] = : 
; 699 1735 7 ~,SMQ_FCSMQSW_TIMER_JOB_COUNT) - 1; : 
; 700 1736 7 : 
; 701 1737 7 }: : 
; 702 1738 7 SMQ_ FCSROsy PENDING JOB_COUNT] = : 
; 703 1739 7 SMQ_FCSMQSW_PENDING_JOB_COUNT] - 1; | : 
3 704 1740 7 : 
; 705 1741 7 : 
3 706 We 7 READ RECORD(.SMO_NF); : 
; 707 1743 7 REWRITE_RECORD(.SMQ_NF); : 
; 708 1744 6 END; : 
3; 709 1745 6 ° 
; 710 1746 6 : 
3; (711 1747 6 ! Unlink the job. : 
: ie 1748 6 ‘ | : 
; 71 1749 6 UPDATE GETQUI_DATA(.SJH_N, ~SJH); : 
> 714 1750 6 IF .SJA_P EQL~0 | : 
: 715 1751 6 é 
: 16 1738 7 EGIN : 
. 3 1753 7 one LIST OFFSET,0,32,0] = .SJHCSYMSL_LINK); : 
; 718 1754 7 IF - SUE STS “LINKS EL 0 : 
; 719 1755 7 THEN SMQCTLIST OFFSET+4, 0,32,0] = 0; : 
: 720 1796 7 READ_RECORD(.SMQ_NJ; ‘ 
3: 721 1757 7? REWRTTE “RECORD (.SMQ_N); | : 
oF ¢ 1758 7 IF .QID"EQL 2 : 
BB. 1759 7 : 
3 726 1760 8 BEGIN | ‘ 
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TIL Queue manipulation utilities 16-Sep-1984 00:14:3 AX-11 Bliss-32 V4.0-74 Page 23 
rivets 1ergeb 138s 98:45:73 | eta sae fadeutur tt 6S2.1 oe 8 
Se, 181 ELSE 
ey, ¢ 1 18 BEGIN 
: 7 1820 CTX 3 = .SJH_N; 
: 785 1821 CTXL8) = .SJH; 
; f 1858 = 
i iss ie } 
: 790 1 RETURN SS$_NORMAL; 
$ ed : 2 END; y 
: 79 1 4 
: 796 i 0 4 IF .SJH_NP NEQ .SMQ_N THEN RELEASE_RECORD(.SJH_NP); 
RWG ORE gi 
3 = .SJH: 
; +99 1838 4 SJH-N = .SJHESYMSL_LINK; 
: 35 1838 a 
: 800 183 
; a3) 1837 Indicate no current queue. 
; 80 1839 If .SJH_NP NEQ .SMQ_N THEN RELEASE_RECORD(.SJH_NP); 
; 804 1840 LIST_OFFSET = 0; 
; 805 1841 END; 
; 806 94 0 
; 807 1843 1 END; 


-EXTRN SYSSCANTIM, SYSSSETIMR 


00FC 00000 .ENTRY SEARCH_QUEUES, Save R2,R3.R4,R5,R6,R7 : 1305 
7E 7C 00002 CLRQ  $0x : 1392 
7E b4 00004 CLRL SQE_N : 139 
5A 7C 00006 CLRO SMQ"N + 1394 
54 04 00008 CLRL SMa + 1395 
59 D4 0000A CLRL §SJH_NP : 1396 
56 7C 9900¢ CLRQ  —LIST_OFFSET : 1389 
08 6C 91 O000E CMPBsC«CAP) > #8 : 1398 
2— 1F 00011 BLSSU-1$ ; 
20 AC D5 90015 TSTL 32¢AP) ; 
29 13 00016 BEQL 6:1 : 
50 20 AC 00 00018 MOVL CTX, RO > 1401 
56 69 DO 0001C MOVL (ROS, LIST_OFFSET : 
08 AE 0 AO DO OOOTF MOVL 4(ROS, QID : 140 
58 8 AO DO 00024 MOVL 8(RO), SQX_N + 140 
04 AE 0¢ AO DO 00028 MOVL  12(ROS, SOR + 1404 
6E 10 A D0 002D MOVL T6CRO), SQE_N > 1405 
5A 14 AO DO 00031 MOVL (RO), SMQ"N > 1406 
54 18 Ad DO 00035 MOVL 4(RO), SMQ > 1407 
39 1¢ AO DO 00039 MOVL (RO), SJH_NP + 1408 
7 20 AO DO 00030 MOVL (RO), SJHP + 1409 
56 D5 00041 18: TSTL IST_OFFSET > 1421 
: 1 0043 BEQL $ : 
0170 31 0004 BRW 6$ : 
08 AE D6 00048 28: INCL QID ; 1433 
02 01 AE CF 00048 CASEL QID, #1, #2 > 1438 


6 | 
-Sep- 214: “11 Bliss-32 V4.0-74 Page 24) 
ted UnEe DEST ere 18-50-19 1 SSGES | AMT etkesace tbe er b$2.1 5 
0120 0118 0104 00050 3$: . WORD aH | 
9 00056 sec |b. a8 t 1494 
i ae ee jem 
06 Ac < £0 Sosn 4$ BBS #4, QSM, 5$ ; 
7 0082 7 006 BRW 12$ 
A 05 Wes 5$ Ist SMQ_N 
SA of 6 0087 OV #1, SMQ_N ; 1502 
4 33 ites CALLS #1, READ_RECORD ; 
nes a ten 
53 5A DO 00078 68 MOVL § SMQ_N, SMQ_NP : 1510 
SA D4 00078 CLRL § SMOQ"N ¢ 1311 
35 93 oor evea Bs 
5B 64 14 6 80081 MOVL 100(SMQ), SQX_N 1519 
6E 1C CE 00085 7$: MNEGL #28, SQE/N : 1320 
5B DS 00088 8$: TSTL S$QX/N 
6B 3 0008A BEQL 14$ Rom 
04 Oe 83 Bobae BNEG OS 
98 DD 00091 PUSHL  SQX_N 
01 FB 00093 CALLS #1, READ_RECORD : | 
ar, 50 DO 0009A MOVL. RO. SOX ; 1548 | 
" or 28 CO O009E 9$ ADDL2 #46, SQE_N ; 1548 
Q00001EC &F gE D1 000A CMPL SOE -N, #292 ; 
- $Q 3 
as a5 92 S80 UHKS Gabel 50H, st 1 
Q 11$ 3 
08 Ac 24 ho 04 60083 CHPL $6(S0E), SMQ_NF ; 1557 
i : 1558 
MOF, R1 
52 0c ii 3 Ni My Sb ORE HORS 33(S0b), 12(R1), R2 ; 
ts 8 ES ite BBE #1. 32(SQE), 9$ 1559 
es ” gh 24 AO DO OOOCC 108: MOVL 36{SQE), SMQ_N ; 1368 
52 04 g? D0 00009 118: MOV asox. SQX_NS ; 1370 
ae PB 00b8 CALLS #1, RELEASE_RECORD + sas 
pepsin eg 04 AE 04 OO0DF CLRL : 1578 
5B 5 DO OOE? HOVE SOX_NS, SQX_N i 1323 
tO RBA Be ie . 
. 36 4k OO0ED BGTRU 138" * pom 
SA 08 AC DO OOOEF MOVL § SMQ_NF, SMQ_N 
2 11 O00F BRB 14$ ans 
A D4 O0r8 13$:  CLRL  SMQ_N 1586 
3 D5 OOOF? 148:  TSTL § SMQTNP : 
a 3 
bd ® ‘ 
FD CALLS #1, RELEASE_RECORD 
pareaneee ‘i be ti 15$: TSTL.  SMO_N : 
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QUEVEUTIL Queue manipulation utilities 66-Sep-1984 4: AX-11 Bliss-32 V4.0- Page 6. 
vitae or geen 18s 99:45:7 AMBCTL sReIOUEULOT L682: 1 ve 
| 
58 7 00 001C4 28%: MOVL JH_P), SJH_N : 1640) : 
3 2 m 38: BNEQ $3 . > + 1645) ; 
0229 31 001C9 BRW 64$ : | ; 
8 DD OOICC 30$:  PUSHL SJH_N + 1647) : 
000000006 Ef gi FB DICE CALLS #1, READ_RECORD : : 
5 0 D O10 MOVL RO, SJH ~ : ; 
0134 (C5 08 AC D1 00108 CMPL snd. NF, 308(SJH) ; 1650 : 
13 (13 O1DE BEQL 3$7 : : 
03 08 AE D1 OOTE CMPL Q1D, #3 + 1651) : 
03 1A OO1E4 BGTRU 32$ : : 
O1F2 31 OO1E6 HEE BRWwW 62$ 3 ; 
F9 08 AE £9 OOiE9 2$:  BLBC QID, 31$ : ; 
SA 0 ag D1 OO1ED CMPL SHO_NF , SMQ_N : ; 
F312 OO1F1 BNE 1$ : ; 
10 AC DS OO1F3 338 TSTL ENTRY + 1655 ; 
09 13 001F6 BEL 348 — 
08 AS 10 BC 10 00 ED 001F8 CMPZ7V #0, #16, @ENTRY, 8(SJH) + 1657 ; 
27 11 OO1FF BRB 5$ : ; 
50 14 AC 09 00201 34$: § MOVL OBNAME, RO : 1659. ; 
23 13 00205 BEQL : : 
51 0108 C5 OA 90207 MOVZBL 264(SJH), R1 + 1663 F 
6 51 B1 0020C¢ CMPW SOR, (RO) : ; 
D5 12 0020F BNEQ 31$ ; : 
0109 «C5 02 BO 60 29 ogi CMPC3. (RO), @2(RO), 265(SJH) + 1665 | ; 
CC 12 00218 BNEQ 31$ : | : 
50 00000000" EF DO OO21A MOVL. MBX, RO + 1669 | ; 
0148 5 10 AO 0c 29 00221 CMPC3 #12. 16(RO), 328(SJH) > 1670) 
BC 12 00228 35$:  BNEQ 31$ : 
18 AC D5 0022A 36$:  TSTL ACCESS_CHECK + 1682 
48 13 0022D BEQL  40$ ; 
55 0D 0022F PUSHL re : 1684 
0c AC 0D 00231 PUSHL ai ; 
18 BC 02 FB 00234 CALLS PD @ACCESS_CHECK : 
3F 50 £8 00238 BLBS RO, 40$ ; | 
5B D3 00238 TSTL  SQX_N > 1687 | 
09 13 0023p BEQL  37$ ; 
5B DD 0023F PUSHL X_N : 1688 
000000006 EF 01 FB 00241 CALLS #1, RELEASE_RECORD F | 
5A D5 00268 378:  TSTL SMO_N ; 1689 | 
OE 13 O024A BEQL  38$ : 
59 5A D1 0024C CMPL SHON. SJH_NP : 
09 13 0024F BEQL 8$ : 
5A DD 00251 PUSHL SMQ_N > 1690 | 
000000006 EF 01 FB 00 33 CALLS #1, RELEASE_RECORD ; 
9 D5 0025A 38%: —=—*TSTL JA_NP > 1691 | 
09 13 0025¢ BEQL 9$ ; | 
59 oD 00 3E PUSHL  SJH_NP + 1692 
000000006 EF o1 FB 0026 CALLS #1, ~RELEASE_RECORD : 
8 DD 00267 398 PUSHL > 1693 | 
000000006 EF 1 FB 0 69 CALLS RELEASE _RECORD F | 
0 00048020 8F p 0 9 MOVL ; 36484 RO™ > 1694. 
018E 31 0027 BRW 6 $ 3 
53 01 DO 0027A 40$: MOVL #1, REMOY NG : 1701. 
02 00 1c AC OCF 09 7D CASEL REMOVE : 1702 | 
0008 000F 0000 0282 41$ WORD 43$n4 =i 
42$-41$ : 
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TIL Queve manipulation utilities 1beSe -1984 4:3 AX-11 Bliss-32 V4.0-74 Page 28 
teat 12790871382 99 3 +3 JOBCTL.SRCJQUEVEUTIL.B32;1 . 3 
DD 538 PUSHL H_N2 : 1778) 
36 11 Z BRB 33g- : 
67 65 09 § 54$ MOVL (SUH), (SJH_P) + 1784 | 
19 1 BNEG 55$ + 1785 | 
04 A644 OF B PUSHAB 4(LIST_OFFSET)CSMQ] ; 1788 | 
- BR bb ob8ee pus, «=SMON : 1789. 
000000006 EF gr FB 00364 CALLS #1, READ_RECORD ; 
A DD 00368 PUSHL SMQ_N : 1790) 
000000006 EF 91 FB 00 gp CALLS #1, REWRITE_RECORD : | 
9 DD 00374 55$ PUSHL  SJH_ + 1792 
000000006 EF 01 FB 00376 CALLS #1, READ_RECORD : 
9 DD 0037D PUSHL  SJH_NP + 1793 
000000006 _ EF 01 FB 0037F CALLS #1, REWRITE_RECORD : 
OE 11 00 56$ BRB 59$ + 1713 
SA D1 00388 57$ CMPL § SJH_NP, SMQ_N : 1798 
09 13 003 EaL «=s«59 : 
9 DD 0038D PUSHL  SJH_NP : 
000000006 EF 01 FB O38 588: CALLS #1, RELEASE_RECORD : 
08 6C 91 00396 59S: CMPB (AP), #8 + 1802 
3B 1F 00399 BLSSU  _61$ : 
20 «AC D5 00398 TSTL  32¢AP) : 
36 (1 00396 BEQL  61$ : 
50 20 AC DO OO3A MOVL CTX, RO > 1805 
60 56 DO 003A4 MOVL  LIST_OFFSET, (RO) : 
04 Ad 08 AE DO 003A7 MOVL  QID,~4(RO) + 1806 
08 a0 5B DO OO3AC MOVL § SQX_N, 8(RO) + 1807 
0c a0 04 AE DO 00380 MOVL  $QX> 12(RO) : 1808 
10 Ao 6E DO 00385 MOVL § SQE_N, 16(RO) + 1809 
14 AO 5A DO 00389 MOVL § SMQ"N. 20(RO) + 1810 
18 AO 54 DO 003BD MOVL  SMQ> 24(RO) : 1811 
OA 53 €9 003C1 BLBC = REMOVING, 60$ : 1816 
1¢ = AO 59 DO O03¢4 MOVL § SJH_NP, g8(R0) : 1815 
20 Ad 57 00 003¢8 MOVL § SJH™P, 32(RO) + 1816 
08 11 b03¢¢ BRB 61$ : 1812 
1¢ AO 58 00 00 CE 60$ MOVL § SJH_N, 28(RO) + 1820 
20 Ad 55 D0 003D2 MOVL  SJH> $2(RO) + 1821 
50 01 00 00306 61$ MOVL 1 + 1826 
2D 11 00309 BRB 66$ : 
SA 59 01 003DB 62$: §CMPL §SJH_NP, SMQ_N : 1830 
09 13 O030E BEQL  63$ F 
59 DD O03E PUSHL  SJH_NP : 
000000006 EF 01 FB 00 EZ CALLS #1, RELEASE_RECORD ; 
9 38 06 ES 63$ MOVL §§ SJH_M, SJH_AP : 1831 | 
57 55 EC MOVL SJH> SJH_P : 1832 
58 65 0 EF MOVL (SJH), SJH_N : 1833 
FDDg 1 003F BRW 9$ + 1645 
SA 59 01 003F5 64$: CMPL SJH_NP, SMQ_N > 1839 
09 13 003F BEQL 65$ ; 
9 DD OO3FA PUSH. SJH_ : | 
000000006 _ EF 1 FB 00 FC CALLS #1, ~RELEASE_RECORD : 
6 bs 0403 65$ CLRL = LI ST_OFFSET + 1840 
FC39 31 0495 BRW : 1413 
58 36 DO 00408 66$ MOVL 4, R11 > 184 
59 5 b0 0408 MOVL : ; 
4 0040 RET ; 


ee 
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; Routine Size: 1039 bytes, Routine Base: CODE + OOBD 


= eee ee ee —_— ee 


{ego 3e v4 


1 Bl sfr7 8G 
JOBCTL.SRCJQUEVEUTIL.852;1 


tit Queve manipulation utilities 1b-se0-1944 90: 46:3 AX-1 


: BG rk ! GLOBAL ROUTINE DEQUEUE_OPEN_JOB(SJH_N;SJH): L_OUTPUT_1= 

8H eee yi 

: 8 1 8 1 | FUNCTIONAL DESCRIPTION: 

: 14 1 1! This routine searches the open job queue for a specified job, and 

; 1? : 29 : } dequeues the job. 

: i$ 1 3g 1} INPUT PARAMETERS: 
; Bi8 ; te } SJH_N - Record number of SJH record. | 
; 8 0 1855 1 | IMPLICIT INPUTS: 

: B53 18891 | _— 

: 98 1858 1 | OUTPUT PARAMETERS: | 
3; §& : 1323 : SJH - Pointer to SJH record. 

: H 6 1861 1! IMPLICIT QUTPUTS: | 
: 856 1Be8 1 i _ | 
: 89 1864 1 | ROUTINE VALUE: 

; 850 1865 1! TRUE - Job found. 

; tt 1396 : FALSE - Job not found. | 
: B33 1868 1 | SIDE EFFECTS: 
; 834 1869 1! NONE 
; 835 1870 1! 

; 836 1871 1 !<- | 
: 837 1376 1 

: 839 ig7e § Bag 

: Bey 1 acm SJH: REF BBLOCK; ' Pointer to SJH 
: B4 i879 SQH: REF BBLOCK, ' Pointer to SQH 

; 484 1878 SMQ_N, ! Record number of SMQ 

3 B44 1879 SMmQ: REF BBLOCK, !' Pointer to SMQ 

; 845 1880 SJH_NP, ' Record number of predecessor of SJH 

; 846 1881 SJH_P: REF BBLOCK, ! Pointer to predecessor of SJH 

3; 847 1886 SJH_NT; ' Record number of SJH 

: 9 188% | 
; 850 1885 SQH = READ_RECORD(SJH_NP = SQHSK_RECNO); 

3; (851 1886 2 SJH_NT = .SQHCSQHSL_OPEN_LISTJ; 

3 S26 Ht WHICE .SJH_NT NEQ 0°00 
; 854 1889 SJH = READ RECORD(.SJH_NT); 

; $2) 4 F ooten EQL .SJH_NT 

: 857 1898 4 BEGIN | 
: 838 139 4 IF, SUH_NP EQL SQHS$K_RECNO 

: bé6 1598 5 BEGIN 

: 1 1896 5 SQHCSQHSL_OPEN_LIST] = .SJHCSYMSL INK); 

3 306 189 2 if .SJHCSYMSL_CINK) EQL 0 THEN SQRCSQH$L_OPEN_LIST_END] = 0; 

; 86 1898 REWRITE _RECORD(SQHSK_RECNO); 

5 Bee 1899 5 END 

: 5 1900 4 ELSE 


oyeuryrit Queue manipulation utilities 1 9-138¢ 99 }$ ?3 AX-11 Bliss-32 V4.0-74 
1 p-1984 7:1 JOBCTL.SRCJQUEUVEUTIL.B32;1 
; 1901 BEGIN 
; 86 190 SJH_PCSYMSL_LINK] = ,SJHCSYMSL_ NK}i 
; 868 19 IF TSJHCSYMSL_LINK] EQL 0 THEN-SQHCSQHSL_OPEN_LIST_END] = .SJH_NP; 
; 869 1904 REWRITE _RECORD(.SJH_NP); 
; 29 1308 ; REWRITE RECORD (SQH R_RECNO); 
: 87 1907 4 SMQ_N = .SJHCSJHSL_QUEUE_LINKI; 
; He 1908 4 IF [SMQ_N NEQ 3 : 7 
3 874 1909 4 THEN 
: 875 1910 BEGIN 
3 are Hb a Queue pointer is OK, update queue record. 
: 878 1918 SmQ = READ RECORD(.SMQ_N); 
: 879 1914 SMOCSMQ$W_OPEN_JOB_COURT] = .SMQCSMQ$W_OPEN_JOB_COUNT] = 1; 
; 880 1915 REWRITE_RECORDT.SMO_N); 
3; 881 1918 4 END; 
; 88 1917 4 RETURN TRUE; 
; 884 1919 IF .SJH_NP_NEQ SQHSK_RECNO THEN RELEASE_RECORD(.SJH_NP); 
; 885 1920 SJH_NP = .SJH_NT; 
3; 886 1921 SJH_P = .SJH; 
3; 887 19 é SJH-NT = .SJHCSYMSL_LINK); 
: 888 19 END; 
: 889 1924 IF .SJH_NP NEQ SQHSK_RECNO THEN RELEASE_RECORD(.SJH_NP); 
: 890 1925 2 RELEASE_RECORD(SQHS$K_RECNO) ; 
3; 891 1926 2 FALSE 
3; 892 1927. 1 END; 
: INFO#250 L1:1902 
; Referenced LOCAL symbol SJH_P is probably not initialized 
O7FC 00000 -ENTRY DEQUEUE -OPEN_JOB, Save R2,R3,R4,R5,R6,R7,- 
5A 00000000G EF 9E€ 00002 MOVAB READ_RECORD, R10 
59 00000000G EF 9E 00009 MOVAB RELEASE_RECORD, R9 
58 000000006 Fr 9E 00010 MOVAB REWRITE_RECORD, R 
55 1D 90017 VL #1, SUHTNP 
01 DD OOOIA PUSHL #1 
6A 91 F 9901¢ CALLS #1, READ_RECORD 
53 00 O001F MOVL RO, SQH 
54 4c COA 06 990 2 MOVL  76(SQH), SJH_NT 
& 1$: BEQL «8S 
54 0D 99 8 PUSHL SJH_NT 
6A 91 FB 9 4 CALLS #1, READ_RECORD 
bf) 0 D MOVL , SJH 
54 04 AC 01 000 CMPL SJH_N, SJH_NT 
af 12 3) BNEQ 
01 5 p1 000 CMPL JH_NP, #1 
0B is 00 BNEQ 
4C AB 6B 00 00038 MOVL (SJH), 76(SQH) 
1 le 003F BNEQ 4 
50 a3 DOD Obey CLRL 80(SQH) 
OF 11 44 BRB 
67 6B DO 00046 2$ MOVL (SJH), (SJH_P) 


| 
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; Routine Size: 156 bytes, Routine Base: CODE + O4CC 


ao 
| 
4 1 49 BNEQ 38 : 190 
5G AB 2 8 48 MOVL § SJH_NP, 80(SQH) : | 
DD 4F 3$: PUSHL SJH_NP i 1904) 
68 1 FB 1 CALLS #1, REWRITE_RECORD : 
1 DD 4 4$: PUSHL + 1905 | 
68 1 F é CALLS #1, REWRITE_RECORD : 
a 0134 (CB p 3 MOVL 308(SJH), SAQ_N + 1907 
11 EQL $ : 1908 
6 DD 0006 PUSHL  SMQ_N : 191 
6A 1 FB 0006 CALLS #1, READ_RECORD ; 
2 DO 0006 MOVL F 
0100 f B 0 68 DECW  256(SMaQ) + 1914 
DD 0006C PUSHL LN + 1915 
68 o1 FB 006E CALLS #1, REWRITE RECORD : 
50 1D 0071 5$: MOVL #1. R : 1917 
04 00074 RET : 
01 55 D1 00075 6$: CMPL SJH_NP, " + 1919 
05 13 00078 BEQL $ F 
5 DD 0007A PUSHL  SJH_NP : 
69 01 FB 0007C CALLS #1, RELEASE_RECORD : 
55 4 DO 0007F 7S: MOVL  SJH_NT, SJH-NP + 1920 
57 5B 00 00082 MOVL  $JH> SJH + 1921 
54 6B 00 0008 MOVL (SJH), SJH_NT 3 1922 
9C 11 00088 BRB : 1887 
01 55 D1 OO08A 8S: CMPL §SJH_NP, #1 + 1924 
03 13 0008 BEQL 46=s«O9S ; 
5 DD 0008F PUSHL SJH_NP s 
69 01 FB 00091 CALLS #1, RELEASE_RECORD : 
01 DD 00094 9$: PUSHL # : 1925 
69 oN FB 00096 CALLS #1, RELEASE_RECORD ; 
0 D4 00099 CLRL —_ RO : 1927 
04 00098 RET ; 
| 
| 


a eee — rc 
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; 3e 13 8 ! GLOBAL ROUTINE ALLOCATE_ENTRY_NUMBER(P_ENTRY_NUMBER)= 

ns, 198) yi 

; 98 1938 i FUNCTIONAL DESCRIPTION: 

3 +44 13 ? : : This routine allocates a new job entry number. 

: 901 1935 1 | INPUT PARAMETERS: 

; 308 1? $ : P_ENTRY_NUMBER = Address of a longword to receive the entry number. 

; 904 1938 1! IMPLICIT INPUTS: 

; 905 1372 : : NONE 

; 309 1941 1 | OUTPUT PARAMETERS: 

ae a 
: 910 19464 1 | IMPLICIT OUTPUTS: 
2: aris: & | Bitten 
: 315 194? | i ROUTINE VALUE: | 
3 ate 1pe8 : : Completion status. | 
: 916 1950 1! SIDE EFFECTS: 

; (917 1951 1! NONE 

; 918 1936 } ! 

Bee ae 
fl He fae 
: 35 1987 SQH: REF BBLOCK, ! Pointer to SQH 

; 924 1958 SEB_N, ' Record number of bitmap extension | 
: 925 1959 SEB: REF BBLOCK, ' Pointer to bitmap extension 
: 926 1960 ENTRY_NUMBER, ' Trial entry number 

; 97 1961 ENTRY_NUMBER_LIMIT, ' Limit for entry number Loop 
; 928 1966 BIT R, ' Bit number within bitmap block 
: 929 196 BLOCK_NUMBCR, ! Offset to bitmap extension block | 
: 9 1964 Q: vVECTOR(C2), ! Temporary for EDIV 

> 931 1965 STATUS; : Status return 

: 933 1969 

: 934 1968 ! Read the queue header. 

: 936 1970 2 SQH = READ_RECORD(SQHS$K_RECNO); 

: 937 1971 SEB_N = 0; | 
. 
; 940 1974 ! Search the portion of the bitmap from NEXT_ENTRY_NUMBER to the end and | 
3 +} 130? : then the portion of the bitmap from the beginning to NEXT_ENTRY_NUMBER. | 
F 308 1979 ENTRY_NUMBER = .SQHCSQHSL_NEXT_ENTRY_ NUMBER}; 
> 944 1978 ENTRY-NUMBER_LIMIT = .SQHTSQHSC_HIGHEST_ENTRY_NUMBER); 

3 945 197 DECR T FROM T TO 0 DO 

3 3¢8 1380 BEGIN 

: a: i : Search the specified portion of the bitmap. 

: 950 19 WHILE .ENTRY_NUMBER LEQU .ENTRY_NUMBER_LIMIT DO | 


7 
QUEVEUTIL Queue manipulation utilities -Sep-1984 4: Ax-11 B * 4.0 4) 
vos-800 : ibs 30771982 F8ik5:43 «| Fabacte saesaceutur i 6S2;1 one 
BEGIN 
Normalize the entry number to the bit number. 


11 NUMBER = .ENTRY_NUMBER - 
emelte NUMBER LSSU™SQHS$S ReNTRE BITMAP * 8 


BEGIN 


wooooo°0 
NOU 


DONOUS WN 
MEPWR—0O0o 


ODOOODOOO0O0O 


wie 


to allocate the 


! The bit is not in an extension record. Try 
; specitied bit in the queue header. If this succeeds, update 


SS333 


$333 


S833 


! Try to allocate the specified bit in the extension record. If 
this succeeds, update data structures and return success. 


If TESTBITCS(B1TVECTOR[ SEBLSYMST_DATAI, -BIT_NUMBERJ) 


wr 
COOOCCCCOCooooo 


WAWAAAAA AWN 


—OOONOUS wh 


oe 1 4 § 
© 1 4 $ 
; 1 4 : 
3 1 4 ; 
. 1 4 g 
o 1 4 ; 
: 1 4 ; 
; 1 3 
3 1 3 
° 960 1 3 
: 363 : i § d 
: ata structures and return success. : 
5 368 1999 3 
; 964 1998 ir TESTBITCS(OITVECTORCSONCSANSB_ ENTRY_BITMAP), .BIT_NUMBER)) > 
; 208 000 6 scin . 
; 96 001 6 eon SQHSL_NEXT_ENTRY wuneen = .ENTRY_NUMBER + 1; ; : 
>; 968 O08 6 -P_ENTRY_RUMBER = .ERTRY_NUMBER; : 
; 969 003 6 iF~.SEB_A NEO 0 THEN RELEASE -RECORD(.SEB_N); | : 
: 970 004 6 REWRITE ao RECN : 
; 971 005 6 RETURN SS$_NORM | : 
3 4; 006 5 END; | 3 
3; 97 007 5 END ‘ 
: «974 008 4 ELSE : 
: 975 009 5 BEGIN : 
; 976 010 : ° 
; 977 011 ! The bit is in an extension record. Determine the index within ‘ 
: 978 Big 5 ! the extension record vector, and the bit number within the ‘ 
; 979 FF 2 ; selected extension record. | ‘ 
: 981 015 § C0} = .BIT_NUMBER - SQHSS_ENTRY_BITHAP * 8; | : 
3 oae 016 5 afi) = : 
; $4 SHA 5 OF IV CEREE (SYMSS DATA * 8), Q@, BLOCK_NUMBER, BIT_NUMBER); | : 
; 985 019 3 | : 
; 986 2020 5 ! If the wore extension record (or no extension record) is in : 
3 +t 203 : memory, read the required record. | : 
3 989 058 5 if .SEB_N NEQ .VECTORCSQHCSQHSL_ENTRY_BITMAP_VECTOR], .BLOCK_NUMBER] : 
we BG Peal 
; 99 036 6 IF .SEB_N NEQ 0 THEN RELEASE _RECORD(.SEB_N); : 
; 99 6 SEB_N = .VECTORCSQHCSQHSL_ENTRY_BITMAP_VECTOR], .BLOCK_NUMBER); | : 
3 o3e : ace = READ_RECORD(.SEB_N); : 
3 0 : 
39 ; 
3% : 
ee | 6 1 F 
31 6 SQHCSQHSL_NEXT_ENTRY eg yt -ENTRY_NUMBER + 1; 3 
3: 1005 6 -P_ENTRY_RUMBER = .ERTRY_N UMBER: 3 
3 1008 040 6 REQRITE =RECORDE 2SC8 N); 3 
> 100 041 6 REWRI TE-RECORD (SQH$R_RECNO) ; ; 


? ne 
| amehewentene neater: JESepctaee QO:1S:43 WARS! Lenade YG fc 7G. sina 


~wM 


: 
i 

1 RETURN SS$_NORMAL; | 
: 4 é § mt | ; 
: i i 5 4 = | 
; 1918 : 4 } Advance to the next entry number. | ; 
1018 5 d ENTRY_NUMBER = .ENTRY_NUMBER + 1; | 
: 1015 TRY. ; 
119 4 IH. 7 
; 1919 038 ! Set up to search the beginning of the bitmap. 
+ 1020 54 i 
: NTRY_NUMBER = ce 
: 19 ; 036 ENTRY NUMBER tunit = ,SQHCSQHSL_NEXT_ENTRY_NUMBER] - 1; ; 
; 1024 058 
: 19 Q $25 ! ALL bits were set in the existing blocks (extremely unlikely). Determine the 
+ 1027 061 i offset within the vector of a new block. 
2 i 
; 18 § $68 if .SEB_N NEQ 0 THEN RELEASE_RECORD(.SEB_N); ; 
: 19 1 bes ont my “SoH SQHSL -HIGHEST_ENTRY_NUMBER] - SQHSS_ENTRY_BITMAP * 8) / 
+ 10 3 06 (SYMSS_DATA™* 8); ; 
; 103 
; 193¢ $68 ! d tor, the architectural ; 
3 ted offset is not within the allocated vec te 
: HH 070 : 1B tig cen oe: of jobs has been reached; return ‘'no space 
; 1038 O7e if BLOCK. NUMBER GEQU SQH$S_ENTRY_BITMAP_VECTOR/4 ; 
: 1040 07% BEGIN 
: ASE_RECORD(SQHSK_RECNO); 
; 19¢2 O76 RETURN JBCS _NOQUESPATE ; ; 
mo gat : 
: 1946 086 : Allocate and initialize the new record. ; 
; 1008 08 STATUS = ALLOCATE_RECORD( ; SEB_N, SEB); 
: 08 IF NOT .STATUS 
3; 1049 
: 1984 O88 ai | : 
: RELEASE_RECORD(SQHSK_RECNO); 
; 1988 ase RETURN JBC$_NOQUESPATE; 
: 19e¢ 689 VECTORE Sant saws. ENTRY pPLTMar. VE ECTORI, -BLOCK_NUMBER] = .SEB_N; 
+ 105 90 2 SEBLSYM Tyee) R GNTR NTRY “BITMAP 
: 1 3$ 91 2 BITVECTORTSEB Symst. DATA “= TRUE: 
; 198 09 REWRITE_RECORD(.SEB~N | 
3; 1059 | : 
: 1961 O95 3: : Update data structures in the queue header to reflect the new block. | 
: 4 TRY NUMBER] + | 
: 9 Y_NUMBER = .SQH(SQHSL_HIGHEST_EN 

: 1068 $98 Pn NOSE NEXT “ENTRY -NUMBER)~= .SQHCSQHS$L_AIGHEST TENTRY NUMBER] + 2; 


asa 


065 099 


2 


4» 4 


1 
§ SS$_NORMA 
0 END; 


oe HIG 

100 . SQHLSQHS$ 
1 REWRITE _RECORDTSO 
} NORMAL 
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4 
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$8 

57 

58 

58 
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65 
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69 

6E 

58 53 4) 
14 A44 

69 
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000000006 gf 

13 OC A6 

65 

046 BC 
00000000G_ EF 

52 


the 
00000F AO 


HEST_ENTRY_NUMBER] = 
L HIGHEST _ENTRY_NUMBER] + (SYM$S_DATA * 8); 
H$K_RECNO) ; 
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OFFC 00000 
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65 
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52 
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58 
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ALLOCATE ENTRY NUMBER, Save R2,R3,R4,R5,R6,~ 
R7,.RB,RO-RIO,RT 

RELEASE RECORD, RO 

48, SP 


#1, READ_RECORD 
QH 


2 
R 


z2z 2<~ 


© i MwzNwowm—WroW® t oom 
A—-MemMmZs ~—-— Mr 
> oOo w-a2w- 


SEB_N, 
SEB_N 
N 


S 


e<~weuxre own 
@ 


NUMBER 
TRY_NUMBER_LIMIT 
NTRY_NUMBER, ENTRY_NUMBER_LIMIT 


1(R2), BiT_NUMBER 
T_NUMBER , "#2048 


NUMBER, 256(SQH), 6$ 
“NUMBER, @P_ENTRY_NUMBER 


ELEASE_RECORD 
=2048(R11), Q 
+4 


#4000, BLOCK NUMBER, BIT_NUMBER 


SQH) CBLOCK_NUMBERJ 


ELEASE RECORD 
H)CBLOCK_NUMBER], SEB_N 


UMBER, 12(SEB), 6$ 
“NUMBER, @P_ENTRY_NUMBER 
REWRITE_RECORD 

RY_NUMBER 

, ENTRY_NUMBER 


; Routine Size: 282 bytes, Routine Base: CODE + 0568 
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QUEVEUTIL Queue manipulation utilities 1b-se -1984 14:3 AxX-11 Bliss-32 v4.0 Page 37) 
v04= 127808 - 1382 00:45:73 JOBCTL. SRC JQUEUEUTIL. 5 2:1 . 3} 
58 65 1 C3 0004 SUBL3.  #1,_(R5), ENTRY_NUMBER_LIMIT : 205 
i BS Beige Re ae MS 
5 +f} OAD BEQL i : 
69 , Pe o08} Ars Rie “REL ASE RECORD : 
50 3c AG 90000800 F eS 0B4 9$: sUsL3 #204 - 80ts > 2065 
5 30 OO00F A a. OB DIVLS #4 8. . “BLote™ RAUMBER : 066 
0 3 D1 000C CMPL  BLOCK_N Onsee : 20 
D 1€ 000¢ BGEGU 108 3 
000000006 Ef 0 F CA CALLS # ALLOCATE _RECORD + 2082 
5 2 D 990} MOVL R11 : 
OD E D4 BLBS Rrafus’ 11$ : 2083 
: 1 DD 00007 10$:  PUSHL #1 + 2086 
69 1 FB 0009 CALLS #1, RE ELEASE RECORD ; 
0 00048030 8F b0 9006 HOV #294960, + 2087 
16 Ab43 SA DO Bode 11$: MOVL SEB_N, 20(SQH)CBLOCK_NUMBERJ + 2089 
04 Ab 0A 90 000E9 MOVE #107 4(SEB) : 2090 
OC A6 01 88 OO0ED BISB2 #1, 12(SEB) + 2091 
5A DD 000F1 PUSHL  SEB_N : 2092 
000000006 EF 01 FB 000F3 CALLS #1, REWRITE_RECORD ; 
BC 3C AG 01 C1 OOOFA ADDL3 #1, 60(SQH); aP_ENTRY_NUMBER + 2097 
65 3C AG 02 C1 00100 ADDL3 #2. 60(SQH), (RS) + 2098 
3C AG QOOOOFAO «BF C0 00105 ADDL2 #400, SO ¢SGH) + 2100 
01 DD 0010D 12$: — PUSHL : 2101 
000000006 EF 01 FB 0010F CALLS REWRITE_RECORD ; 
50 01 pO 00116 MOVL a RO : 2103 
04 00119 RET ; 
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M 
Queue manipulation utilities 16-Sep-1984 214: AX-11 i 
2 4 gf 00: 45:7 NDBCTL SRE 


14-Sep-19 
GLOBAL ROUTINE DEALLOCATE_ENTRY_NUMBER(ENTRY_NUMBER): NOVALUE= 
l4e4 


fl 
FUNCTIONAL DESCRIPTION: 
This routine dealiocates a job entry number. 


INPUT PARAMETERS: 
ENTRY_NUMBER - Entry number to be deallocatea. 


IMPLICIT INPUTS: 
NONE 

GUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

! ROUTINE VALUE: 

NONE 


SIDE EFFECTS: 
NONE 


BEGIN 
LOCAL 
SQH: REF BBLOCK, ! Pointer to SQH 
BIT_NUMBER; ! Bit number within record 
Read the queue header. 


SQH = READ_RECORD(SQHSK_RECNO); 


: Ensure that the entry number is in range. 


if .ENTRY_NUMBER EQLU 0 
OR -ENTRY_NUMBER GTRU . SQHCSQHS$L_HIGHEST_ENTRY_NUMBER] 


RETURN; 


BIT_NUMBER = .ENTRY_NUMBER - 1; 
NUMBER LSSU~SQHS$S_ENTRY_BITMAP * 8 


cee CSQH$B_ENTRY BITMAP], .BIT_NUMBER] = FALSE; 


H 
ORD (SQHSR_RECNO) ; 


QUEVEUTIL.B52;1 
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QUEVEUTIL Queue manipulation utilities 16-Sep-1984 00:14:3 AX-11 Bliss-32 V4.0-74 Page 39 
ye p00 1o-808-138e 994537 JOBCTL. SRCJQUEUEUTIL B32; 1 oe 
: 1128 161 BEGIN 
: 1129 166 LOCAL 
; 11350 16 BLOCK_NUMBER, ! Index to extension block 
: 1131 164 Q: VECTORC2), ! Temporary for EDIV 
3 11 ¢ 165 SEB_N, ' Record number of extension bitmap 
: i} 166 SEB: REF BBLOCK; ! Pointer to extension bitmap 
: 1135 168 
: 1136 169 aro) = ,BIT_NUMBER = SQHSS_ENTRY_BITMAP * 8; 
: 1137 170 QCij = 0; 
: 1138 171 EDIV(XREF (SYM$S DATA * 8), Q, BLOCK_NUMBER, BIT_NUMBER); 
> 1139 26 IF .BLOCK_NUMBER LSSU SQH$S_ENTRY_BITMAP_VECTOR74 
3 1140 17 THEN 
3 1141 174 4 BEGIN 
$ 1145 2175 4 SEB_N = .VECTORCSQHCSQHSL_ENTRY_BITMAP_VECTORJ, .BLOCK_NUMBER]; 
> 114 2176 4 IF .SEB_N NEQ 0 
3 1144 177 4 THEN 
3 1145 178 5 BEGIN 
3: 1146 179 5 SEB = READ_RECORD(.SEB_N); 
3: 1147 2180 5 BITVECTORCSEBCSYM$T_DATA), -BIT_NUMBER] = FALSE; 
> 1148 2181 5 REWRITE_RECORD(.SEB_N); 
3 1149 2182 4 END; 
3 1150 2183 3 END; 
> 1151 2184 3 RELEASE_RECORD(SQH$K_RECNO); 
3 1152 2185 2 END; 
3 1153 2186 1 END; 
003C 00000 -ENTRY DEALLOCATE_ENTRY_NUMBER, Save R2,R3,R4,R5 3: 2104 
55 00000000G EF 9E 00002 MOVAB READ_RECORD, 5 
54 00000000G EF 9E 00009 MOVAB REWRITE_RECORD, R4 : 
5E 08 C2 00010 SUBL2 #8, SP F 
01 OD G0013 PUSHL # 3: 2139 
65 01 FB 00015 CALLS #1, READ_RECORD : 
53 50 00 00018 MOVL RO, SQH : 
52 04 AC DO 00018 MOVL  ENTRY_NUMBER, R2 > 2144 
52 13 OOO1F BEQL 3 
3c aS 52 D1 00021 CMPL  -R2, 60(SQH) : 2145 
4C 1A 00025 BGTRU 5$ 3 
25 D7 00027 DECL IT_NUMBER 7 2153 
00000800 _ =s— BF 52 D1 00029 CMPL T-NUMBER, #2048 : 2154 
0c 3 00030 BGEQU : 
00 0100 ¢3 52 €5 00032 BBCC BIT_NUMBER, 256(SQH), 1$ : 2157 
01 DD 00038 1$: PUSHL #1 3: 2158 
64 01 FB OOO3A CALLS #1, REWRITE_RECORD : 
04 0003D RET : 2154 
6E F800 C2 9E 000 3 2s: MOVAB -2048(R2), Q 3; 2169 
04 AE BF 004 CLRL Q+ 2 5i50 
52 50 ge 00000F AO of B 00046 EDIV #4000, Q, BLOCK_NUMBER, BIT_NUMBER 3 2171 
0 0 D1 O004F CMPL BLOCK_NUMBER, a8 3 2172 
8 1 O23 BGEQU 3 
53 14 A340 00 0005 MOVL § 20(SQH)CBLOCK_NUMBER], SEB_N : 2175 
OF 13 00059 BEQL 4$ s 2176 
53 DD 00058 PUSHL SEB_N : 2179 


a 
viet eee Cees ee 18-Sep-1984 99:45:93 | Abect eke ooeutott: Bs2.1 
5 F A #1, READ_RECORD 
00 0c fi £8 8 gare BI t_NUMBE Re 2(SEB), 3$ 

bd 06 3$: PUSHL SEBIN 

64 01 FB CALLS #1, REWRITE_RECORD 

01 DD 0006A 4$ PUSHL 
00000000G_ EF 01 FBO pee CALLS #1, RELEASE_RECORD 

04 00073 5$: RET 


; Routine Size: 116 bytes, Routine Base: CODE + 0682 


Bee Se Se ee Se Se Se Se Se ee Se Se Se Se Se Se ee Se Se ae Se See Se ee ae 


8 | 
= poll, Sopmrinonceninnnceim NEREEHOREAESNTE WRGEL MESS 


3 1} 5 188 } GLOBAL ROUTINE JOB_STATUS_MESSAGE (RESULT, MSG_BUFFER,SMQ,SJH,ESMQ)= ; 
: 11 $ 1 5 1 144 : 
3 11 : 1 1} ; 
3 11 191 1 ! FUNCTIONAL DESCRIPTION: : 
3 1399 135 : This routine formats a job status message. ; 
3 1188 194 1 ! INPUT PARAMETERS: 3 
: 116 195 1! RESULT - Result of the enqueue. : 
: 1164 138 1; MSG_BUFFER - Pointer to message buffer. | : 
; 1165 197 1! SMQ - Pointer to SMQ. ° 
: 1168 198 1! SJH - Pointer to SJH. : 
3 +74 ha : ESMQ - Pointer to executor SMQ, if job is executing. | : 
3; 1169 01 1 =! IMPLICIT INPUTS: ; 
: vin 0$ 1 i a 
; 1176 04 1 ! OUTPUT PARAMETERS: 

3 117 05 1! NONE 

> 1174 206 1 | | 

3 1175 344 1 ! IMPLICIT OUTPUTS: 

at Fi ike | 

3; 1178 At 1 ! ROUTINE VALUE: 

3 1179 ifs Message length. 

3; 1180 \¢ 1! 

3; 1181 $1 1 ! SIDE EFFECTS: 

; 118¢ 14 $1! NONE | 

: }ibe o8 1 | 

: 1185 $19 | 
HBB asst | 

; 1188 2220 MSG_BUFFER: REF VECTORC,BYTE), ! Pointer to message buffer 

3; 1189 2221 SJH: REF BBLOCK, ! Pointer to SJH 

: 1190 $555 SMQ REF BBLOCK, ' Pointer to SMQ 

3 1191 22 ESMQ REF BBLOCK; ! Pointer to SMQ 

: 1138 224 LOCAL 

3 119 225 GET_DESC: vectont ga. ! Descriptor for $GETMSG buffer 

3 1194 $56 MSG_DESC: vVECTORC2), ' Descriptor for message buffer 

; 1195 2 LENGTH: WORD ' Length of message 

: 1196 a PRMLST: VeCTORE 4], i $FAOL parameters | 

: 1138 4 oun GET_BUFFER: VECTOR(80, BYTE); ' $GETMSG buffer 

: 1199 1 MESSAGES: VECTORES] PSECT(CODE) PRESET( 

> 1200 32 ENQ_K_ CURRENT =  JBC$_NFY_CURRENT, 

> 1201 3 ENQ-K"HOLD) = JBC$~NFY-HOLD 

:1 0¢ 34 ENQ"K“PENDING) = JBCS"NFY~PENDING, | 

; 120 35 ENQ"K-TIMER) = JBCS"NFY-TIMER | 

> 1204 ENQ"K~COMPLETE] = JBCS~NFY-COMPLETE); | 

3 1205 LITERAL 

3 1 5] 8 MSG_LENGTH= 160; 

: 1508 4 

: 1209 41 ' Get the message to be formatted. 

3; 1210 g : be 

3; 1211 4 GET_DESCCO, = ZALLOCATION(GET_BUFFER); 


dD 8 
TIL Queue manipulation utilities 16-Sep-1984 00:14:3 AX-11 Bliss-32 V4.0-74 p 
itaeitty . ergee1obe $3i85:83 | Avert tae fooeutore: 6%2;1 aoe $f 


UFFER; 
C.RESULTI, 


vuvv 


THEN 
RETURN 0; 


Set up the proper FAO parameters. 


PRMLSTCO) = SJHESJHST NAME : 

PRMLST(C1) = SMQ sHasy NAME J: 

PRMLSTC2) = .SJHLSYMSC_ENTRY_NUMBER); 

IF RESULT EQL ENQ_K_CORRENT THEN pRAL ST 3] = ESMQCSMQST_NAME); 
IF RESULT EQL ENQ“K-TIMER THEN PRMLSTL3J= SJHLSJHSQ_AFTER_ TIME); 


n" 


: Format the message. 


MSG_DESCEO] = MSG_LENGTH; 
MSG-DESCL1] = .MSG_BUFFER; 
$F AOL ( 


PAEAAAQAMAIAI II PE 


WAN AARP POROPORONOPUNON | 3 


SLE EEE SSesess 
NOUSWN—OO@ VEWN (OO OBNAUESWN —“OOONOUE wT 


vuvvU 


PIPIPIMPGPOPININPININYIDINPNININIPYPIPYNIPYINYPINPINININININIPINIPINIPIPINUPNINPIPIPUPIPUPIPYPIPIPIPIPUNINIPPUPoPUNony 


IF i EQL ENQ_ K_ COMPLETE 
te . SJHCSJHSL_CONDITION_1] NEQ 0 AND NOT .SJHCSJHSL_CONDITION_1] 


BEGIN 


! Append CR-LF to the buffer, and update the descriptor to describe the 
remaining portion of the buffer. 


MSG_DESCL1] = .MSG_DESC[1) + .MSG_DESC(O): 
(MSG chy 1})<0 16> = ECHAR(EO'OT *, £0°012"); 
= 


mMnrrn 


MSG_DESCL1) = .MSG 1} + 2; 
MSG-DESCLO] = MSG_CENGTH - .MSG_DESC[O) - 2; 


100 C9 09 C9 C0 C8 SII NS NINN NNO OO 


Get the message corresponding to the completion status. 
$GET 


PIPIPOPIPININININIPINI NINN NIP NINININININININININININININAININININIPINIPOPIPINPPUNNoPonPonn 


COVE WwN—OOW 


MSG( 
MSGID=.SJHCSJHSL_CONDITION_1), 
MSGLEN=LENGTH 

BUFADR=MSG_ DESC, 
FLAGS=%B'1T11"): 


vuvuv0D 


wr 


: Update the descriptor to describe the entire message. 
MSG _DESCLO] = MSG_LENGTH - .MSG_DESCCO) + .LENGTH; 


me a ee a ee a a a a td td od 8 


Queue manipulation utilities 


ts ize peace 


oye UE ATL 
Ae 


O6F -BLKB 
00048480 000484A0 00048498 00048490 00048488 rea MESSAMES: 
EXTRN 
001C 000 ENTRY 
ry 000000006 00 9€ 0000 MOVAB 
E C AE 9E 000 MOVAB 
6C AE 0 8F 9A 00000 MOVZBL 
70 = AE 04 AE 9E B00 ts MOVAB 
7E 01 7D Ba8) MOVa 
74 AE OF OOOTA PUSHAB 
78 AE 9F 00010 PUSHAB 
53 04 ag DO 00020 MOVL 
C4 AFS43 DD 44 4 PUSHL 
64 92 4] 0028 CALLS 
03 0 €8 00028 BLBS 
50 D4 B88 3 CLAL 
04 000 RET 
52 10 AC 00 00031 1$ MOVL 
54 AE 0108 C2 9E 00035 MOV 
58 AE 0c AC 00000080 8F Ci 00038 ADDL 
5C AE 08 ag DO 00045 MOVL 
53 DS OO04A TSTL 
OA 12 0004C BNEQ 
60 AE 14 ac 00000080 8F C1 sed ADDL3 
03 53 D1 00058 2$: CMPL 
06 12 00058 BNEQ 
60 AE 0098 C2 9E 0005D MOV 
64 «AE AO 8F 9A 00063 3$: MOVZBL 
68 AE 08 AC 00 00068 MOVL 
54 AE OF Bn088 PUSHAB 
68 AE 9F 000 9 PUSHAB 
6C AE 9F 0007 PUSHAB 
78 AE 9F 0007 PUSHAB 
000000006 00 4 FB 4 CALLS 
4 3D 3 CMPL 
41 1 0083 BNEQ 
00DC ge DS 00085 TSTL 
| 13 00089 BEQL 
36 00DC C E 88 BLBS 
68 AE 64 AE CO 3 ADDL2 
$8 BE OAOD 8F 8B 09 MOVW 
68 AE 02 CO 00098 ADDL e 
64 AE 0000009E oF 64 AE ¢ O09F SUBL 
E OF 7D 000A9 MOVa 
6C AE F QOOAC PUSHAB 
0c ag F QOOAF PUSHAB 
C 00B2 PUSHL 


AX-11 Bliss-32 V4.0-74 
JOBCTL.SRCJQUEVEUTIL.B52;1 


2 
296072, 296080, 296088, 296096, 296064 
SYSSGETMSG, SYSS$FAOL 


SYSSGETMSG, R& 
-116 §p 


#5, SYSSGETMSG 


, PRMLST 
76, SMQ, PRAL ST +4 
R25, PRMLST+ 


76, _ESMQ, PRMLST+12 
, 

2¢R2) « PRMLST#12 

MSG BUFFER, MSG_DESC+4 
RMCST 

MSG_DESC 

MSG_DESC 


¢ 
#4, “SYSSFAOL 
R3, #4 


USB" WD BWODOBMM 
eae an ee = oo 


4 

220(R2) 

4$ 

220(R2), 4$ 

™ g pest. MSG_DESC+4 
#2573, aMSG D 

#2, MSG _DEST+4 

msG DESC #158, MSG_DESC 
#157 -(SP) 

MSG DESC 


oebtRD) 


PeSe Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Be Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Se Be Se Se Se Se Se Se Be Be 


SPS Fe one Snlostes oe eae AD LAR ism 


et ee c 
64 ae O0AO  C i 00¢ MOVAB Teateb) msc. DESC ; 

5 AE D0 000C6 4$: MOVL , RO + 2303 

04 OOOCA RET ; : 2304 


; Routine Size: 203 bytes, Routine Base: CODE + 070C 


8 
manipulation utilities -$ se0-13 4 t 99: 13: 73 AX-11 Bliss-32 V4.0-7 Page 45. 


4-Sep-1984 JOBCTL.SRCJQUEUEUTIL. 2 2;1 (10) | 


3 1276 1 ROUTINE See mand wa kel teak NOVALUE= 

: 182? | to 

: 127 1 i | 
31 8 09 1! FUNCTIONAL DESCRIPTION: 
3 } ; } } This routine notifies a user via broadcast of the status of a job. 

:1 a i 1 | INPUT PARAMETERS: 

3 1 o¢ 1 1! RESULT - Result of the enqueue. 
: 128 141! SMQ - Pointer to SMQ. 
; 1284 39 3 Ff SJH - Pointer to SJH. 
; 1 5 1 : } —ESMQ - Pointer to executor SMQ, if job is executing. | 
: 128 18 1 i IMPLICIT INPUTS: | 
; ! 3 19 ' ; NONE 

: 1290 1 1 | OUTPUT PARAMETERS: 
: ! 91 : i NONE 

: 4 3 4 1! IMPLICIT OUTPUTS: 

3 : oe 5 ' NONE 

51 % $ 1 | ROUTINE VALUE: 

: 1598 S ii _— 

31 0 1! SIDE EFFECTS: 

3 ; 1 : Messages broadcast to terminals. 

i} Sis 

; 5 BEGIN 

74 SJH: REF BBLOCK, ' Pointer to SJH 

: 1 8 SMQ: REF BBLOCK, i Pointer to SMQ 

: 1 9 ESMQ: REF BBLOCK; i Pointer to SMQ 

3 7 0 LOCAL 

; 1310 1 LENGTH ! Length, of message 

: 1 4g MSG_BUFFER: VECTORCSRQ$S_BRDCST_TEXT,BYTEJ; ! Message buffer 

31 rs 

3 1314 45 ! FILL im a CR-LF and two bells ahead of the message, and get the formatted 

: ! 5 $ message. 

51 5 48 MSG BUFFER = XCHAR(Z0'015", %0°012", %0'007", %0°007"); 

> 1318 LENGTH = 4 + JOB_STATUS_MESSAGE(.RESULT, MSG.BUFFER + 4, .SMQ, .SJH, .ESMQ); 

183 % 

: ; 1 25 Issue the broadcast message. 

:1 54 2 BROADCAST 1 MESSAGE 

: 1324 55 SJ HST $10), 

: 1325 36 SJHESJHST~ USERNAME J 

: ¢ 37 : LENGTH, ASG_BUFFER); 


<oO 


BSB SE ARO RE ERIN ESSE 


H 8 
TIL Queue manipulation utilities 16-Sep-1984 00:14:3 AX-11 Bliss-32 v4.0-7 Pa 46. 
tied a Freee a ee OO tS Panett osaesaucutute. 6S2:1 off 


0000 00000 NOTIFY USER: 


ORD Seve ogehtng ; 2305. 
SE FES E 9€ 0000 MOVAB 444(SP), § $ 
0707000 F pp 9007 PUSHL 4117901887 > 2348 
7E ¢ AC 7D 000 mova SK. -(SP) > 2349 
08 AC DD 00011 PUSHL SMQ : 
10 AE 9F 00014 PUSHAB MSG_BUFFER+4 é 
04 AC DD 00017 PUSHL RES T : 
FFI6 CF 0 fe OO1A CALL » JOB_STATUS_MESSAGE é 
50 4 C€ O00 ADDL #4, LENGTH : 
4001 F 6B 2 PUSHR #*M<R NeP> : 2357 
7E OC AC 00000148 8F C1 00026 ADDL3 #328, SJH. - -(SP) + 2356 
7E OC AC 0000016C 8F C1 O002F ADDL3 #364. SJH. =(SP) + 2355 
00000000G_ EF 04 FB 000 CALLS #4, BROADCAST _MESSAGE 3: 2356 
04 0003F RET + 2358 


; Routine Size: 64 bytes, Routine Base: CODE + 0707 


0 aaa . \ ml 


B 
eS aon eet ans NCRSIOR NOSES MSL al 


; } ! GLOBAL ROUTINE COMPLETE_JOB(SJH_N,SJH,SMQ,ACM,STS): NOVALUE= ; 
: 1331 1 !44 F 
3; § i : 
3 1 1 ! FUNCTIONAL DESCRIPTION: : 
; : : ! This routine completes a job. : 
3 3 1 ! INPUT PARAMETERS: 3 
3; 3 1} SJH_N - Record number of SJH. : 
3 3 1! SJH = Pointer to SJH. : 
3 1 1 3 SMQ - Pointer to SMQ. . 
3 1340 1! ACM - Pointer to ACM or 0. ; 
3 : 1 : STS - (Optional) Forced completion status. ° 
3 3 : 1 ! IMPLICIT INPUTS: : 
3 : : : NONE | : 
3 1 $ 1 ! OUTPUT PARAMETERS: ; 
3 : ‘ : } NONE : 
3 1349 1 ! IMPLICIT OUTPUTS: : 
3; 1350 80 1! NONE ; 
3; 1351 81 1! : 
3 7 26 S¢ 1 ! ROUTINE VALUE: : 
3 1353 ess 1! NONE : 
3; 1354 84 1! | : 
3; 1355 85 1 ! SIDE EFFECTS: : 
3 1 38 86 1! NONE : 
; 135 ‘ga ‘ 
1B By ; 
; 1300 90 BEGIN : 
3 130) 91 MAP : 
3 1 $ SJH: REF BBLOCK, ! Pointer to SJH ; 
; 136 9 SMQ: REF BBLOCK, ! Pointer to SMQ : 
3; 1 $9 ACM: REF BBLOCK; ! Pointer to ACM ; 
; 1365 95 BUILTIN : 
| $09 ACTUALCOUNT ; ¢ 
2 398 | 
3 1369 399 ! First, check to see that the SJH is valid by verifying the QUEUE LINK is 3 
3 1309 400 ! non-zero. Invalid SJHs can only occur in a corrupted file. An invalid : 
3; 1371 401 ' SJH is generally a record that has been deallocated to the free List but : 
3 ! a rh still may appear in the SMQ's current List. 

; \ re rte IF .SJHCSJHSL_QUEVE_LINK] EQL 0 THEN RETURN; 

: ' , rt} : Propagate the process termination status to the SJH record. 

3; 1378 408 IF .SJHCSJHSL_CONDITION_1] EQL 0 AND .ACM NEQ 0 

3; 1379 409 THEN 

3; 1380 410 EGIN 

3 1381 411 SJHCSJHSL_CONDITION_1] = .ACMCACMSL_FINALSTS); 

31 Ht tig SJH Fatt gia gp = 0; 

3 1 41 SJHCSJHSL_CONDITION_5) = 0; 

3 1384 414 END; 

3; 1385 415 


8 
OSES: | ome emteenion tein IEREHSEE RUHR URGES 


} Propagate the forced abort, requeue, or delete status, if specified. 


31 418 

; ; 

: 138 t18 if .SJHCSJHSV_DELETED) 

; 1390 420 THEN 

3 1391 421 BEGIN 

3 1 3 4 g SJHCSJHSL_CONDITION_1] = J8C$_JOBDELETE OR STSS$K_ERROR; 

3 139 4 SJH SJHSL_CONDITIONA¢ = 0; 

3 1394 626 SJHCSJHSL_CONDITION-3] = 0; 

; ! 95 4 5 END 

: 37 4 ; ELSE IF . SJHESJH$V_ABORTED] 

3 1399 4 3 BEGIN | 

; 1400 430 IF .SJHCSJH$V_REQUEUE) 

; 1401 431 THEN SJHESJHSL CONDITION. 1] = JBC$_JOBREQUEUE OR STSS$K_ERROR 

3 1408 43¢ ELSE SJHCSJHS$L-CONDITION-1] = JBC$-JOBABORT OR STS$K_ERROR; 

: 140 43 SJH SJHSL_ CONDITION ¢4 = 0; 

3 1404 434 SJHCSJHSL_CONDITION-3] = 0; 

3 1405 435 END; 

1209 139 

: t's $c36 Propagate the forced completion status, if specified. 

> 1410 2440 2 IF ACTUALCOUNT() GEQU 5 

£142 Stas § YE Mpecin 

; 1413 5448 5 SJHLSJHSL_CONDITION_1] = .STS; 

3 1414 2444 SJH SJHSL_CONDITION=@] = 0; 

> 1415 2445 3 SJHCSJH$SL_CONDITION~3) = 0; 

: 1416 gheg END; 

ot 

> 1419 ak: ! Write an accounting record for the job except if it was not executing | 

; 1o60 see0 } at the time of a system failure, or it has been retained. 

; 1492 438 iF (NOT .SJHCSJHSV_SYSTEM_FAILURE] OR .SJHCSJHSV_EXECUTING)) 

: \o¢? $e? ae wot . SJHCSJHSV_RETAINEDJ 

; 1258 2455 WRITE_ACCOUNTING_RECORD(.SJH, .SMQ, .ACM); 

es | 

> 1428 458 : botote lets from the completed queue without going through NOTIFY and 

3 1063 re SYNCHRONIZE processing. 

F 1451 461 2 IF .SJHCSJH$SV_DELETED) 

; 14 ¢ 46¢ AND .SJHCSJHSV_RETAINED) 

: 14 464 DELETE_SJH_RECORD(.SJH_N, .SJH) 

; 1° 5 reo 

: ¢ i re Requeue the job if required. 

: 1239 4 ELSE IF “SHES HSY SYSTEM FAILURE} 

: 1440 470 AND (NOT .SJHCSJHSV_ERECUTING) OR .SJHCSJHSV_RESTART)) 

+ 1441 471 OR .SJH(SJHS$V_REQUEUE J 

5 1442 472 2 OR .SJHCSJHSV~RETAINED) 
j 


] 


Oi legate V4.0-74 Page 49 
RC 


Kk 8 
Q TIL Queve manipulation utilities 16-Sep-1984 00:14:3 AX-11 
vitae ° {k-4es 4 00:43:33 JOBCTL. QUEVEUTIL.832;1 (11) 


p-19 


3: 1443 oo? THEN 

> 1446 47 eects 

3 14465 475 SJHLSJHSL_CURRENT_FILE_LINK] = 0; 

3 144 47 ENQUEVE_JOB(.SJH_A, .SJH); 

> 146 47 REWRITE-RECORD(.SJH_N); | 
3: 1446 47 END 

3 144 47 | 
3 1oe 480 
3; 1451 481 ' Complete the ° with NOTIFY and SYNCHRONIZE processing, and then delete or 

; 1458 4B¢ i retain the job according to the /RETAIN specification. 
3 \eee 4 E 

3: 1455 485 BEGIN 

; oes 4 $ LOCAL 

3; 145 48 QSMQ_N, ! Record number of —* SMQ 

3; 1458 488 QSMQ: REF BBLOCK; ! Pointer to job's SMQ 

3; 1459 489 

3: 1460 490 

3; 1461 491 ! If the /NOTIFY qualifier was given, send the completion notification to 

$ Me ¢ 49 ! the user. 

3: 146 49 ! 

3: 1466 494 IF .SJHCSJHSV_NOTIFY) 

3 1465 495 THEN 

3 1466 496 NOTIFY_USER(ENQ_K_COMPLETE, .SMQ, .SJH, 0); 

3 1467 497 

: 1468 498 p 7 

: 1469 499 ! If there are SYNCHRONIZE commands pending for this job, send the response 
: 1470 500 ! messages. 

3 1471 501 : 

3 erg one IF_ .SJHCSJH$V_SYNCHRONIZE) 

3 147 50 HEN 

3 1476 504 SCAN_INCOMPLETE SERVICES( 

3 1475 505 TSRV_K_SYNCRRONIZE, 

3 1477 507 « SJHESJH$L_CONDITION_1]); 

3: 1478 508 

3 1479 509 

3 1380 319 : : Read the job's queue record. 

s Ht} 21¢ QSMQ = READ_RECORD(QSMQ_N = .SJHCSJH$L_QUEUVE_LINK]); 

3; 148 51 

3 1484 514 é 

3 re 3}? : If the job is to be retained, do so; otherwise delete it. 

3 1289 31 IF NOT .SJHCSJHSV_DELETEDJ 

: 1488 518 4 AND (.QSMQCSMQ$V_RETAIN ALL_JOBS) 

3 1¢e) ah 4 3 OR (.QSMQCSMO$SV_RETAIN_ERROR_JOBS] AND NOT .SJHCSJHS$L_CONDITION_1])) 

: 1491 521 4 
: 1436 5 4 4 SJHCSJHSL_COMPLETED_ BLOCKS) = 0; 

3 149 5 4 SJHCSJHSL_ CURRENT _FILE_CHKPT) = 0; 

3 1494 524 4 SJH$B_JOB_COPTES CAKPT] = 0; 

> 1495 525 4 SJHCSJHSB-FILE COPIES CHKPT) = 0; 

3 1608 5 § 4 DEALLOCATE_VART DATAC 

3 149 é 4 SJH$S_CHECKPOIN 

> 1498 8 4 SJMCSJHST CHECKPOINT) 

3 1499 529 4 SJHCSJH$L_CURRENT_FILE_LI 
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9 
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GLOBAL ROUTINE VALIDATE_OBJECT_NAME (LENGTH, ADDRESS ,DESC)= 
'e4 


' 
FUNCTIONAL DESCRIPTION: 
This routine validates a characteristic, form, or queue name. 


INPUT PARAMETERS: 
LENGTH 
ADDRESS 

IMPLICIT INPUTS: 
NONE 


— ws 


- Descriptor for ASCII name. 


OUTPUT PARAMETERS: 
DESC - Short descriptor for converted name. 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
True if the parameter is a valid name, false otherwise. 


PAAPQAMAMIMNMAMNNIUVIVIVIUT ES BBE LL LE 
Wr 
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SIDE EFFECTS: 
NONE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 
ADDRESS: REF VECTORC,BYTE), ! Pointer to ASCIC queue name 
DESC: REF BBLOCK; 


! Pointer to short descriptor 


Ensure that the length is valid. 
if -LENGTH EQL 0 OR .LENGTH GTRU 31 
RETURN FALSE; 


BS ISVO NFS SSS 


Initialize the descriptor. 


DESCCSDSC_W_LENGTH] = .LENGTH; 
DESCESDSC“A-POINTER] = .ADDRESS; 


' Loop arom all characters of the name checking for validity. Convert 
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260 : lowercase uppercase in place, and remove a trailing colon if one exists. 
36¢ iNCR 1 FROM 0 TO .LENGTH-1 DO 

56 BEGIN 

564 LOCAL 

a8? C: BYTE; 

269 C = .ADDRESSC.1); 

568 SELECTONE .C OF 


9 | 
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3 1 9 T $ 
3 i 19 335 Chia: TO %C'Z", BC'O" TO ZC°9", BC'S", BC'_'): | ; 
: 12s £31 Cat's) Neste. f°: .ADDRESSE.13 = %C*a" © XC°A | 
: ~ ‘a’ 7 '; 3 
: 1576 ra Czc*:° + : 
: 157 605 THEN DESC SSC. W_LENGTH] = .DESCCSDSC_W_LENGTH] - 1 : 
: 157 6 ELSE RE RETURN FACSE; ; 
; 157 6 COTHERWISE : 
: 157 608 RETURN FALSE; : 
3 1 609 S; 3 
; ; 610 END; é 
:1 61 : 
; 1386 gig TRUE ; 
; 1585 614 1 END; | 
F 

: 

| 

000¢ 00000 .ENTRY VALIDATE_OBJECT_NAME, Save R2.R3 7 2541 : 

53 04 AC D0 00002 MOVL ENGTH, R3 : 2577 : 

61 13 90006 BEQL $ : : 

1F 3 pi 0000 CMPL 3, #31 : : 

5c (1A 90008 BGTRU 5$ : : 

5 0c AC DO 0000D MOVL DESC, R2 + 2584 : 

é 53 BO 00011 MOVW R3, (R2) : ‘ 

02 A 08 AC 00 00014 MOVL ADDRESS, 2(R2) : 2585 ; 
50 01 CE 00019 MNEGL #1, I : 2591 : 

4E 11 0001C BRB 6 : : 

51 08 BC40 90 OO01E 1$ MOVB @ADDRESSCI], C : 2596 : 

24 51 91 000 CMPB CC, «#36 : 2599 ; 

44 13 00026 BeaL «sé S$ F : 

30 51 91 00028 CMPB sé, «#48 ; F 

5 1F 00028 BLssu 2 ; : 

39 1 91 0002D CMPBé,,«#S7 : : 

A 1B 000 BLEQU 6$ : 3 

41 BF 1 91 00032 28 CMPB ¢ #65 : : 
06 1F 000 BLssu. 3$ : : 

SA soBF 1 91 00 CMPBéC,:«#90 : ; 
E 18 0003C BLEQU 6$ ; 3 

SFOS 1 34 00 : 3$ CMPB sé, -«#95 ; | : 
8 13 0004 BEQL $ : : 

61 8F 1 91 00044 CMPBsé,,:«#97 > 2601 | : 
gp 1F 00048 BLSSU 4 : ; 

7A oS 1 91 0004A CMPB CC, :«# 122 : ; 
07 1A 904 BOTRY 4$ ; : 

08 BC40 Q 82 5 SUBB2 #32, @ADDRESSLI) : 2602 : 
15 11 000 BRB : ; 

3A 51 91 00057 4$ CMPB #58 ; 2603 | : 

Od 12 0005a BNEQ : | : 

51 FF OA oF 0 MOVAB <-1(R3), R1 > 2604 ; 

1 50 01 00 CMPL | RI : : 

04 if 006 BNEQ : : 

62 B7 0006 DECW —- (R2) > 2605 | F 


> 
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11 00067 BRB 48 : 
9% pb 69 5$: cURL RO ; 2608 
AE 50 53 F 006 6S: AOBLSS R3, I, 1$ i 3591 
0 01 pO 000 MOVL #1. RO + 2614 

04 0007 RET : 


; Routine Size: 116 bytes, Routine Base: CODE + 0965 
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14-Sep- JOBCTL.SRCJQUEVEUTIL.B52;1 (13). 


: } es $1} } GLOBAL ROUTINE FIND_CHARACTERISTIC(DESC; NUMBER): L_OUTPUT_1= 

HB BIE Le 
: 159 19 1 i FUNCTIONAL DESCRIPTION: | 
3 ; 35 6 : : : This routine looks up a characteristic name. 
; 1594 : 1 | INPUT PARAMETERS: | 
: } 95 ? } } DESC - Short descriptor for characteristic name. | 
[4 38 5 1! IMPLICIT INPUTS: 

; 159 1! NONE 
: 1899 a yi 
: 1600 3 1 ! OUTPUT PARAMETERS: 

3 1804 2 : NUMBER - Numeric equivalent of the characteristic name. 

:1 j 1 1! IMPLICIT OUTPUTS: 

Py 1605 1! 
3 1998 1 ! ROUTINE VALUE: 

3 44 5 : : True if the characteristic is defined, false otherwise. 

: 1605 637 1 | SIDE EFFECTS: 
; 1610 638 1! NONE 

; 1611 639 1! 
3 1ol¢ 640 1 !-- 
3; 161 641 1 
wee Site aia 
: 1616 644 i: DESC: REF BBLOCK; ! Short descriptor for name 

: 1618 646 SCX: REF BBLOCK, ' Pointer to SCX 

3; 1619 647 SCX_N ' Record number of SCX 

; 1620 648 SCX"NS, ! Record number of successor of SCX 

3: 1621 649 CE: REF BBLOCK; ! Pointer to SCX entry 

£1858 sey 

: 1694 $026 : Search the characteristic index for the desired name. | 
: 1858 $7 SCX = READ RECORD (SQHSK RECNO); | 
3 1627 655 CX_N = .SUXCSQHSL_CHARACTERISTIC_LIST); 

> 1628 656 2 RELEASE_RECORD(SQHSK_RECNO); | 
3: 1629 657 WHILE .SCX_N NEQ 0 DO 
ee 
: 16 ¢ 660 ' Read the characteristic index record. 

: 1638 661 | 
: 16 66¢ SCX = READ_RECORD(.SCX_N); | 
.) 
: Ht 665 Search the characteristic index for the desired name. 
> 1639 $6? SCE = SCXCSYM$T_DATAJ; 

; 1640 668 : INCR SCE AN FROM"O TO SCXSK_ENTRIES-1 DO | 
; 1648 670 4 IF CHSRCHAR(SCECSCXST_NAME]) EQL 0 

3: 164 671 4 THEN 


A — — a 7 ~ 


e.. | 
Pho tageeheenaene sce JECSEEARG SITE WRGLIASENGHULGH an RT 


> 16646 672 4 EXITLOOP | 
; 1645 ers 4 ELSE | 
; 184? 675 CASE CHSCOMPARE 
31 8 676 CHSRCHAR(SCECSCX$T_NAME)) SCECSCxST NAME J+1, 
; 164 4 SCCSDSC_W_LENGTAJ, .DESCESDSC_A_POINTER], 
: 16 ? ers FROM -1 TO 1 OF 
: ie § SET 
: 1654 6 ; [-1): | 
; 16 5 6 SCE = .SCE + SCX$S_SCX; 
; 1887 685 (0): 
> 1658 686 6 BEGIN 
: 1659 é NUMBER = .SCECSCX$B_NUMBER); 
+ 1660 688 6 RELEASE_RECORD(.SCX-N); 
: 1661 689 RETURN TRUE; 
5 1066 690 END; 
: 166 691 | 
3 1664 692 5 + 
+ 1665 693 6 BEGIN 
+ 1666 694 6 RELEASE_RECORD(.SCX_N); 
: 1667 695 6 RETURN FALSE; 
: 1668 696 5 END; 
: 1669 69 3 
: 1670 698 TES; 
: 1671 699 & END; 
: 167¢ 700 END; | 
Be Hg 
; 102? A : Advance to the next index block. 
: 1877 $7oe SCX_NS = .SCXCSYMSL_LINK]; 
> 1678 2706 RELEASE_RECORD(.SCX~N); 
+ 1679 3707 SCX_N =~. SCX_NS; 
> 1680 708 END; 
1883 At | 
> 168 711 2 FALSE 
3; 1684 712 +1 END; 
07FC 00000 ENTRY FIND CHARACTERISTIC, Save R2,R3,R4,R5,R6,- ; 2615. 
5A 000000006 EF 9E 00002 MOVAB READ RECORD, R10 : 
54 000000006 EF 9E 00009 MOVAB RELEASE_RECORD, R4 ; 
1 DD 0001 PUSHL #1 : 2654 
6A 1 FB 0001 CALLS #1, READ_RECORD ; 
58 0 pO 0001 MOVL x F 
56 10 A8 00 90018 MOVL 16(SCX), SCX_N : 2655 
01 DD 0001C PUSHL @# > 2656 
64 gi FB OOO1E CALLS #1, RELEASE_RECORD : 
6 D5 00021 1$: TSTL  SCK_N : 2657 | 
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: Search the form index for the desired name. 


sr = READ_RECORD(SQH$K_RECNO); 
SFX_N = .SFXCSQHSL FORA JWR LIST); 
RELEASE RECORD (SOHSK 

ILE .SFX_N NEQ oO 
EGIN 


Mororonororonr 
NOUEWN oO 


Soe 


14-Sep-1 JOBCTL.SRC) QUEUEUTIL. 8 (14) ) 
3 ; GLOBAL ROUTINE FIND_FORM_NAME(DESC;SFM_N,SFM): L_OUTPUT_2= 
: 1 'e¢ 
3 7 i 
; 16 i FUNCTIONAL DESCRIPTION: 
$ 193) This routine finds a form definition by name. 
: 1898 i INPUT PARAMETERS: 
3 1698 DESC - Short descriptor for form name. 
3 | 
3 1698 i IMPLICIT INPUTS: 
3; 169 i NONE 
; 1698 i 
5 4 i OUTPUT oe 
; 1700 SFM - Record number of SFM. | 
3 1783 Sfmne - Pointer to SFM. | 
3 1708 i IMPLICIT OUTPUTS: 
3: 1704 i NONE 
; 1705 i 
3 1706 i ROUTINE VALUE : 
3 17 True if the form is defined, false otherwise. 
3; 1709 i SIDE EFFECTS: 
3; 1710 i NONE 
3 1711 i 
3 ar: inn 
3; 171 
: ar BEGIN 
3 1716 DESC: REF BBLOCK, ' Short Goce toser for form name 
3: 1717 SFM: REF BBLOCK; ! Pointer to $ 
: 1718 LOCAL 
3 1719 SFX: REF BBLOCK, ! Pointer to SFX 
3 W7 SFX_N ! Record number of SFX 
3; 17 SFX"NS, ' Record number of successor of SFX 
; Hf SFE: REF BBLOCK; ! Pointer to SFX entry 
3; 17 | 
; 17 
3; 17 | 
3 17 
3 17 
: 17 
3; 17 
3 1 
3 1 
3 1 
3 1 
i 
s 1 
3 1 
s 3 
3 1 
2 ¥ 


731 , 

7 

ff Read the form index record. 

Re SFX = READ_RECORD(.SFX_N); 

739 

A ' Search the form index for the desired name. 
740 Fe = SFXCSYMST PATA): 

yl INCR SFE IN FROM"O TO SFXSK_ENTRIES-1 DO 


IESE ne irre sa Pecet AH UU Meo a cL, i 


: 1763 770 4 IF CHSRCHAR(SFECSFXST_NAME]) EQL 0 : 
: ee tt, EXITLOOP 
+ 174 ae 4 SE ; 
: 17% 774 BEGIN ; 
3 1748 775 CASE CHSCOMPARE ( ; 
: 1746 176 CHSRCHAR(SFECSFXST_NAME)) sre ECSFXST_NAMEJ+1, : 
: 1730 i sDESCCSDSC_W_LENGTAI, .DESCCSDSC_A_POINTERI, | : 
: 17 ; re FROM -1 TO 1 OF | : 
: 17 780 SET | : 
: 1754 781 : 
: 1755 7 ; (-1): | ; 
: 17 6 7 SFE = .SFE + SFXSS_SFX; ; 
3; 17 7 : 
: 17 a 785 (0): ; 
: 1760 7 ‘ SFM ; READ_RECORD(SFM_N = .SFECSFXSL_FORM_LINK]); | ; 
> 1761 7 8 RELEASE RECORD. SFX_NY; : 
: 176 790 EN i | ; 
> 1764 791 ; 
: 1765 296 (+1): ; 
3 1766 793 6 BEGIN ; 
: 176 794 6 RELEASE RECORD(.SFX_N); ; 
: 1768 795 RETURN FALSE; | ; 
3 TA 4 796 END; $ 
: 1770 797 ; 
; 1771 798 TES; : 
: 1778 799 4 END; ; 
: 177 800 END: | 
: 177% 801 ; 
: 1775 oe 3 
: 1776 80 } Advance to the next index block. : 
+ 1777 804 ; 
: 1778 805 SFX NS = .SFXCSYMSL = 1NKI: : 
3: 1779 806 RELEASE RECORD (.SFX_N : 
3; 17 807 SFX_.N = .S 3 3 
+ 1781 808 ; ‘ 
: 17 é 809 : 
: 178 810 : 
+ 1784 811 FALSE 3 
: 1785 812 1€ ; 
03FC 00000 ENTRY F IND _FORM_NAME , Save R2,R3,R4,R5,R6,R7,.R8,.- ; 2713 : 

54 000000006 EF 9€ 0000 MOVAB RELEASE_RECORD, R4 F 3 

iF DD 000 PUSHL #1 > 2754 : 

000000006 EF gi FB 000 CALLS #1, READ_RECORD : : 

7 0 DO 0001 MOVL x : : 

6 34 A? 00 0001 MOVL  S2(SFX), SFX_N ; 3755 ; 

O1 DD 00019 PUSHL #1 : 2756 : 

64 1 FB 0001B #1, RELEASE_RECORD : : 


; Routine Size: 136 bytes, Routine Base: CODE + 0A50O 


9 
TIL Queue manipulation utilities 13- Sep-1 AX-11 Bliss-32 V4. P 1 
tie 1 at 99: 3: 3 JOBCTL. SRC aefoccututse. aS2; :1 mab 
ol a ee ml 
000000006 EF 1 FB 00084 CALLS #1, ~READ_RECORD | ; 
5 oc A? $e 9008 MOvAB S%RI)~ sre 767 
38 ps 0089 CLRL «= SFELN He ; 
: 3 0 2s: TSTB = ( SFE) 770 ; 
dD 1 BEQL = 6S ; 
51 65 9A 000 MOVZBL (SFE), R1 77 ; 
0 04 AC B0 00 OVL DESC, RO 77 : 
60 20 01 AS 02 25° tte CMPCS RI, I(SFE), #32, (RO), a2(RO) 776 : 
} 38 90067 erau us : 
fe & ch Boos ADDL? fo, sre 
SA 24 AS DO $0086 38: MOVL He SFM_N : 
SA DD 00054 PUSHL  SFM_N : 
000000006 EF 01 FB 00056 CALLS #1,7 REA : 
. a ee ms 
64 01 FB 90062 CALLS #1, RELEASE_RECORD : 
“ i a pe 
56 DD OOOSA 4$ PUSHL SFX_N 2794 : 
64 01 FB 9006¢ CALLS al. RELEASE_RECORD nal : 
BF 5B 08 F3 00071 S$: AOBLEQ #11, SFE_N, 2$ 2768 : 
. a ob dunyg OS: ae apis Sk $83, | 
64 01 FB OOO7A CALLS #1, RELEASE -RECORD : 
56 58 DO 0007D MOVL § SFX_NS, SFX7N 2807 : 
9c 11 00080 BRB 1$ 757 ; 
50 D4 00082 7$: CLRL — RO 812 ; 
5B 59 DO 00084 8$: MOVL  R9, R11 : 
04 00087 RET 3 
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; 178 13 GLOBAL ROUTINE FIND_FORM_NUMBER (NUMBER; SFM_N,SFM): L_OUTPUT_2= ; 
iy He i : 
; 1791 1? | i FUNCTIONAL DESCRIPTION: ; 
; 1738 18 ! } This routine finds a form definition by number. : 
: 1794 Q 1 | INPUT PARAMETERS: : 
3 12? 1 : : NUMBER - Form number. ° 
: fee § ji ampuicit inputs: 3 
; 179 4 ; NONE 
; 1800 $ 1 | OUTPUT PARAMETERS: : 
; 1801 8 1: SFM_N - Record number of SFM. ° 
: 1806 : 8 : } SFM - Pointer to SFM. 
: 1804 0 1! IMPLICIT OUTPUTS: 
; 1805 8 1 NONE 3 
; 180 B38 1 | ROUTINE VALUE: : 
3 H +4 : : ; : True if the form is defined, false otherwise. ° 
> 1810 836 1 | SIDE EFFECTS: : 
> 1811 837 1 NONE é 
; 181 838 1 | : 
3 181 839 1 i-- ; 
; 1814 840 1 ; 
EES 3 aes 7 
; Hb 3 bcs ace SFM: REF BBLOCK; ! Pointer to SFM 

: 1819 845 : SFX: REF BBLOCK, ! Pointer to SFX 

: 1820 $ SFX_N ' Record number of SFX 

3; 1821 84 SFX"NS, ' Record number of successor of SFX 

3 1as¢ 848 SFE: REF BBLOCK; ! Pointer to SFX entry 

: 1854 850 

: 3 5 32) : Search the form index for the desired number. 

; 18 $ 833 5 SFX = READ_R CORD (SQH$K_RECNO) ; 

3 1828 854 2 SFX_N = .SFXCSQHSL_FORM-INDEX_LIST); 

3 1829 855 2 RELEASE_RECORD(SQHSK _RECNO); 

31 $26 WHILE .SFX_N NEQ 0 DO 

; 1 897 BEGIN 

; 1838 323 : Read the form index record. 

> 1835 861 SFX = READ_RECORD(.SFX_N); 

; 1338 B66 

; 1838 Bes Search the form index for the desired number. 

; 1840 bed SFE = SFXCSYMST_DATA); 

3 1841 ti INCR SFE_N FROM™O TO SFXSK_ENTRIES-1 DO 

; 1828 B69 IF CHSRCHAR(SFECSFX$T_NAMEJ) EQL 0 
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: 1866 70 4 EN 

: 5 4 4 -EXITLOOP 

34 $ ig 4 IF .NUMBER EQL .SFECSFXSL_NUMBER] 
: 8 2 4 THEN 

> 1850 7 READ_RECORD(SFM_N = .SFECSFXSL_FORM_LINKJ); 
> 1851 ig RELEASE RECORD (SFX _NY; 
: 1858 78 RETURN TRUE 

> 185 879 ENDS 

> 1854 80 4 ELSE 

3 1922 oe) 4 SFE = .SFE + SFXSS_SFX; 
; 1856 ¢ END; 

3: 1857 88 

> 1858 884 

> 1859 885 

> 1860 88 

: 1861 88 X_NS = .SFXCSYMSL Se 

: 1868 888 RELEASE _RECORD(. SFX 

> 186 889 SFX .SFX_NS; 

> 1864 890 ; 

> 1865 891 

3: 1866 89 

> 1867 2893 2F ALSE 

: 1868 2894 1€ 


01FC 00000 .ENTRY FIND_FORM_NUMBER, Save R2,R3,R4,R5,R6,R7,.R8 ; 2813 
000000006 EF 9E 00002 MOVAB READ-RECORD, R ; 
000000006 EF 9E 00009 MOVAB RELEASE_RECORD, R7 3 

01 DD 00010 PUSHL # > 2853 
01 FB 00012 CALLS #1, READ_RECORD : 
50 pO 0001 MOVL RO, SFX : 
34 AG DO 00018 MOVL  52¢SFX), SFX_N + 2854 
01 DD 0001C PUSHL # : 2855 
01 FB OOO1E CALLS #1, RELEASE_RECORD ; 
38 D5 00021 1$: TSTL  SFX_N > 2856 
43 13 00023 BEQL 4 6=s«S5$ ; 
5B DD 00025 PUSHL SFX_N + 2861 
gi FB 00027 CALLS #1, READ_RECORD ; 
0 0 99 A MOVL Rg SFX ; 
Oc AG 9F D MOVAB 12(R4), SFE : 2866 
53 D4 00031 CLRL SFE_N + 2867 
62 3 00 3 28: TSTB 3s (SFE) + 2869 
24 13 000 BEQL «6s 4$ ; 
04 AC D1 00037 CMPL NUMBER, 32(SFE) : 2873 
18 i 003¢ BNEQ 38 F 
24 A2 00 000 5 MOVL 6(SFE), SFM_N > 2876 
SA DD 004 PUSHL SFM_N ; 

1 FB 44 CALLS #1, READ_RECORD ; 

0 »D 9047 MOVL RO. SFM ; 
PR Hine GALES 1 Hes ense econ as 
t BB 80 4F MOVL = #1, : 2878 


| 
| 
7 Advance to the next index block. 
| 
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16 11 BRB 6$ F 
5 3 C 3$: ADD #40, SFE : 2881 
d8 2 B F AOBLEQ #11, SFE_N, 2$ 3: 2867 
4 0 B 4$: MOV (SFX), SFX_NS : 7 
B OD PUSHL SFX_N 3; 2888 

7 ! r CALLS #1, RELEASE_RECORD : 
B D MOVL SEXANS, SFX_N : 9 
4 1 BRB & : 6 
D4 5$: CLRL RO $ 94 

58 6 0 A 6$: MOVL R6, R11 : 

4 6D RET : 
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; Routine Size: 60 bytes, Routine Base: CODE + 0B46 


TIL Queue manipulation utilities Sep-19 AX-11 Bliss-32 v4. Pa 
vr itietat ts 1e-8eb-1986 99: 337 JOBCTL. SRC oueutuTa. BS2; :1 oe 488 
: 
| : 
003¢ 00000 FIND FORM, REF ERENCES._J i5 as ah : 
. ave . ° 
55 000000006 EF 9E 0000 MOVAB RELEA se RE RE tone, a5 : ; 
2 08 AC D 99 MOVL JH_NO, ~SJH_N + 2930 : 
A 1 00D 1$: BEQL 3 2931) : 
2 DD 0000F PUSHL SJH_N : 2933) : 
000000006 Ef 1 FB ou CALLS #1, “READ_RECORD : | : 
04 AC OOFC 28 D1 0001B CMPL ; O(SJH), SFM_NF t 2936) ; 
99 12 00021 BNEQ $ ; : 
2 DD 000 : PUSHL SJH_N t 2939) : 
65 gt FR $8 CALLS #1, RELEASE_RECORD 3 | 4 
50 1 D0 00028 MOVL #1, RO : 2940) : 
04 00028 RET F ° 
54 $3 DO 0002C 28: MOVL  (SJH), SJH_NS 3 2944 : 
2 DD 000eF PUSHL §$ 7 2945 : 
$3 2 4 0031 CALLS #1, RELEASE — 3 ° 
2 4 D 00 MOVL SJH » aan 3; 2946 ° 
D4 11 00037 BRB i$ ~ > 2931 3 
50 04 00039 3$: CLRL ~—_ RO > 2951 3 
04 00038 RET F : 
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; 13 } GLOBAL ROUTINE F IND_FORM_REFERENCES(SFM_NF)= 

: 19 1 I+ 

3; 1931 1 ! 

: Np § 1 ! FUNCTIONAL DESCRIPTION: 

3 3 } : This routine finds references to a specified form anywhere in the queue. 
; 1935 1 ! INPUT PARAMETERS: 

; 13 : SFM_NF = Record number of SFM. 

3; 19 1 ! IMPLICIT INPUTS: 

3; 19 7! NONE 

3; 1940 1! 

3; 1941 1 ! OUTPUT PARAMETERS: 

; 1366 1! NONE 
3: 194 1! 

3 1944 1 ! IMPLICIT OUTPUTS: 

3 1945 1! NONE 

3 128 1! 

3: 194 1 ! ROUTINE VALUE: 

3: 1948 1! NONE 

3 1949 1! 

; 1950 1 ! SIDE EFFECTS: 

3: 1951 1! NONE 

3 1926 1! 

: 195 1 !-- 

: 1954 1 

: 1955 BEGIN 

: 1956 LOCAL 

; 1957 SQH: REF BBLOCK, ! Pointer to SQH 

3; 1958 SQx: REF BBLOCK, ! Pointer to SQX 

3 1959 SQX_N ! Record number of SQX 

3; 1960 SQX"NS, ' Record number of successor of SQXx 
3 1961 SQE: REF BBLOCK, ! Pointer to SQX entr 

; 1308 SMQ_N, ' Record number of SM 

3; 196 SMmQ: REF BBLOCK; ! Pointer to SMQ 

3 1964 

3; 1965 

3 Hh ¢ : Read the queue header. 

3; 1968 SQH = READ_RECORD(SQHSK_RECNO); 

: 199 

: Hb 4a : Search for form references in each job List Linked from the queue header. 
3 1978 IF FIND_FORM_REFERENCES_J(.SFM_NF, .SQHCSQHSL_OPEN_LISTJ) 

3 1974 OR FIND_FORM_REFERENCES J(.SFM_NF, .SQHCSQH$L_PENDING_BATCH_LISTJ) 
3; 1975 OR FIND_FORM_REFERENCES_J<.SFM_NF, .SQHLSQHSL_PENDING palet List) 
: ize OR FIND_FORM_REFERENCES_J(.SFM_NF, .SQHCSQHSL_TIMER_LTISTJ) 

: 197 THEN 

3; 1978 BEGIN 

; 1979 RELEASE _RECORD(SQHS$K_RECNO); 

: 1980 RETURN TRUE; 

; 1981 3 

3 1956 

: 198 

3; 1984 ! Loop over all queue headers. 
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} Read the queue header. 
SMQ = READ_RECORD(SMQ_N = .SQECSQX$L_QUEUE_LINKJ); 


. 1 5 ' 

19 1 SQX_N = .SQH(SQHSL_QUEVE_INDEX_LIST); 

19 1 RELEASE_RECORD(SQHSK_RECNO); ~ 

19 1 WHILE ,SQX_N NEQ 0 DO 

19 \3 BEGIN 

12 1? } Read the queve index record. 

1998 Ni SQX = READ_RECORD(.SQX_N); 

1398 i 

1338 Search the queue index. 

1998 g SQE = SQXC(SYMST_DATA); 

1999 ; INCR SOE N FROM"O TO SQXS$K_ENTRIES-1 DO 
901 5 IF CHSRCHAR(SQECSQX$T_NAMEJ) EQL 0 
608 $ : EXITLOOP 
$0$ : BEGIN 
$07 
008 ¢ 
009 


WI 


OOOOCOCCCOCOCOCOCOOCOCOoOooO 


DAA BE BB BTV. DE DDS PSST TTI BB BE AAAI II III 


010 $e 
011 5 
Sig = ' Search for form references in the queue header and in each job 
Siz 38 } List Linked from the queue header. 
015 .] IF .SMQCSMQSL_FORM_ LINK] EQL .SFM_NF 
O16 040 OR FIND_FORM_REFERENCES_J(.SFM_NF, .SMQCSMQS$L_CURRENT_LISTJ) 
01 041 OR FIND-FORMREFERENCES_J(.SFM-NF, .SMQLSMQS$L-HOLD_LISTJ) 
018 ok THEN 
019 04 BEGIN 
020 044 RELEASE_RECORD(.SMQ_N); 
021 045 RELEASE _RECORD(.SQX_N); 
0 § Bes RETURN : 
0 04 END; 
024 048 
025 049 
: $ Bey : Release the queue header. 
0 5 RELEASE RECORD(.SMQ_N); 
$59 088 END: . 
0 054 
031 055 
0 § p28 SQE = .SQE + SQx$S_SQX; 
0 05 END; 
0 058 
035 059 
0 poe } Advance to the next index block. 
O38 O66 SQX_NS = .SQXCSYMSL_LINK]; 
44 06 RELEASE_RECORD(.SQX"N); 
0 064 SQX_N = .SQX_NS; 
041 065 END; 


$251 
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JOBCTL.SRCJQUEVEUTIL.852;1 
; i Se ; FALSE 
3 5 END; 


OFFC 00000 ENTRY FIND FORM REFERENCES, Save R2,R3,R4,R5,R6,- ; 2952. 
8 F AF 9€ MOVAB fey Ay ye $_J, R11 : | 
28 000000006 f 3 0006 MOVAB RELEASE RECORD, Rio _ : —_ 
000000006 EF 1 FB OOCOF CALLS #1, READ RECORD : | 
2 D 9016 MOVL RO : | 
4C A2 0D 0001 PUSHL 76(SQH) + 2997 
54 04 aC dO 0001 MOV SFM_NF, R4& : 
54 DD 000 PUSHL 4 : | 
$8 g FB 000 CALLS #2, FIND_FORM_REFERENCES_J ; | 
1 E8 000 BLBS : 
54 A2 DD 00 8 PUSHL  84(SQH) : 2998 
54 DD 00028 PUSHL RG : 
68 02 Fe 0020 CALLS #2, FIND_FORM_REFERENCES_J ; 
16 50 €8 000 BLBS , F 
5c 6A2 ODD 0035 PUSHL 92(SQH) t 2999 
54 DD 000 PUSHL R 3 
6B 08 FB 00038 CALLS #2, FIND_FORM_REFERENCES_J ; 
08 50 £8 00038 BLBS Sse : | 
68 A2 DD 0003E PUSHL  104(SQH) : 3000 
54 DD 00041 PUSHL R ; 
6B 02 FB 00043 CALLS #2, FIND_FORM REFERENCES_J F 
04 E9 00046 BLBC ~=_«RO,. 2$ ; 
gi DD 00049 1$: PUSHL #1 : 3003 
6 11 00048 BRB 6$ : 
57 64 A2 00 00040 28: MOVL  100(SQH), SQX_N : 3010 
01 DD 00051 PUSHL : 3011 
6A o4 FB 00053 CALLS #1, RELEASE_RECORD F 
7 0D 90096 3$: TSTL  SQXK_N : 3012 
69 13 00058 BEQL 6» : 
57 DD 0005A PUSHL  SQX_N : 3017 
000000006 Ef gi FB 005¢ CALLS #1, READ_RECORD : 
33 0c 29 : ites ROVAB ° (R9), SOE ? 30 
36 p4 oek CLRL 7 : 3095, 
é 006C 4$: TSTB = ( SQE) : 3025 | 
46 1 O06E BEQL $ : 
55 24 a3 dd 000 MOVL 6(SQE), SMQ_N : 3033. 
55 DD 00074 PUSH 7 ; 
000000006 EF gi FB 0076 CALLS #1, ~READ_RECORD : 
2 9 DO 00070 MOVL OR : 
54 70 A D4 90 CPL 112(SMQ), R4& ; 3039. 
48 43 DD 09 PUSHL 2(SMQ) ; 3040, 
68 03 FB 00 CALLS ae E JND_FORM_REFERENCES_J : 
E8 000 BLES =-aRO. : 
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78 A2 OD 91 PUSHL 120(SMQ) 3 3041. 
4 00 94 PUSHL R4 : 
68 4 38 CALLS ace ENO _FORN REFERENCES J 5 | 
E E9 000 BLBC = «RO, 7 : | 
DD O009C 5$: PUSH SMQ_N 3 3044. 
6A 1 FB 9 CALLS #1, RELEASE_RECORD : 
7 OO A PUSHL e 3; 3045. 
A 1 fe A3 6$ CALLS #1, > asta inaantten $ 
0 1 4 “8 MOVL #1, R 3 3046 
4 A RET F 
55 0D AA 7$ PUSHL SMQ_N : 3052 
A 4 F AC CALL #1, RELEASE_RECORD g 
3 8 ¢ AF ADDL 6, : 305 
B6 g 43 F 0B2 AOBLEQ #11, SQE_N, 4$ : 302 
5 Ny) p88 8$: MOVL (SQX), SOX_NS : 306 
7 DD 0008 PUSHL SQX_N ; 306 
oA 1 fe it CALLS #1, RELEASE_RECORD g 
? § dO 00 BE MOVL QX_NS, SQX=N + 3064 
93 11 000C BRB : 3012 
50 04 000C3 9$ CLRL RO : 3069 
04 000C5 RET ; 
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yOeeb00 , 12-80-1382 9953333 JOBCTL.SRCJQUEVEUTIL.B52;1 . (18) 
; od , } ROUTINE FIND _QUEUVE_REFERENCES_J(SMQ_NF ,SJH_NO)= ; 
; 5 72 1 44 ; 
$ 0 75 1! : 
3 1 74 1 ! FUNCTIONAL DESCRIPTION: : 
: 8 § Boe : This routine finds references to a specified quewe in a list of jobs. : 
3 034 O79 1 ! INPUT PARAMETERS: : 
: 2055 378 BB SMQ_NF - Record number of SMQ. : 
: b28 079 1! JH_NO - Record number of SJH. ‘ 
: 205 080 1! : 
3 028 ed 1 ! IMPLICIT INPUTS: : 
; 20 0 1! NONE : 
; 2060 085 1! : 
; 2061 084 1 ! OUTPUT PARAMETERS: $ 
: 206 085 1! NONE : 
: 206 ba$ 1! 3 
3 2064 087 1 ! IMPLICIT OUTPUTS: : 
; 2065 088 1! NONE : 
: 9 § 089 1! | 3 
3: 206 090 1 ! ROUTINE VALUE: : 
; 2068 091 1! True if any references were found, false otherwise. : 
3; 2069 O36 1! : 
; 2070 093 1 ! SIDE EFFECTS: 3 
; 2071 094 1! NONE F 
3 376 095 1! | : 
: Sore 7 1 | 
; 2075 098 BEGIN 3 
3 B76 099 LOCAL 3 
; 207 100 SJH_NS, ' Record number of successor of SJH 
; 2078 3101 SJH_N, ' Record number of SJH 
; 4 198 SJH: REF BBLOCK; ! Pointer to SJH 
: 2081 104 | 
: 508 105 3 SJH_N = .SJH_NO; | 
; 208 10 WHILE SJH_N NEQ 0 DO 
; 
; 2085 108 SJH = READ_RECORD(.SJH_N); 
: 508 190 | 
; 2088 111 IF .SJHCSJH$L_LOG_ QUEUE wrt EQL .SMQ_NF | 
; 2089 ie OR .SJHCSJHS$SL_QUEDE LINK) EQ . N 
: 11 OR .SJHCSJHSL-REQUEDE_QUEVE_LINK] EQL .SMQ_NF 
3; 2091 114 THEN 
: 209 115 4 BEGIN 
3; 209 116 4 RELEASE_RECORD(.SJH_N); 
3 209% 117 4 RETURN TRUE; 
: 2095 118 END; 
3 B98 11 
; 209 120 
; 2098 121 SJH_NS = .SJHCSYMSL_LINK); 
; 2099 1 ; RELEASE_RECORD(.SJH_N); 
3 190 1 SJH_N = .SJH_NS; 
: 2101 124 : 
: 106 125 
3; 210 126 


b-5ep 
Ea, Sos stents satel IERIHSE QRUHSHE WMSSLSURNRHEU Iie 


: 8108 186 f Ends 


003C 00000 FIND_QuEUE REFERENCES 3 
WORD Save R2,R3.R : 3070. 
55 000000096 fF 9 00 hOVAB RELE ASE RE RELORD, a5 : | 
08 AC D MOVL § SJH_N ; 3105, 
3A 1 0 1$: BEQL = 7 3106 | 
3 od F PUSHL  SJH_N > 3108 
000000006 EF 01 FB 0011 CALLS #1, READ_RECORD : | 
2 DO 00018 MOVL H : | 
AC 0104 C2 D1 0001B CMPL 66<SJH), SMQ_NF + 3111 
10 13 00021 BEQL $ ; 
04 Ac 0134 C2 Di 00023 CMPL 08(SJH), SMQ_NF + 3112 
08 13 900 3 BEQL $ : 
04 ac 0138 C2 D1 00028 CMPL 12(SJH), SMQ_NF : 3113 
9 12 00031 BNEQ = 3$ : 
3 pd 000 3 2$: PUSHL SJH_N + 3116 
65 or FB 000 CALLS , RELEASE_RECORD : 
50 1 pO 00038 MOVL ek RO + 3117 
04 00038 RET ; 
54 $2 DO 9005¢ 3$: MOVL § (SJH), SJH_NS + 3121 
DD 0003F PUSHL SJH_N + 3122 
65 01 FB 00041 CALLS #1," RELEASE -RECORD ; 
53 54 DO 00044 MOVL § SJH_NS, SJH + 3123 
C4 11 00047 BRB | Se : 3106 
50 D4 00049 4$: CLRL — RO : 3128 
04 00048 RET : 


; Routine Size: 76 bytes, Routine Base: CODE + 0C48 
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Be Se Se Se Se Be Se Se Se Se Bt Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Fe Fe Se Ge Se Ge Ge Se Se Ge Se Ge Se Se Se Se Ge Se Ge Se Ge He Se Se ee Se Se Se Se Se we 
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meee ee ee ee ce ee a ee ed ed ed ad ad 


w 


PAEAEQXQEMAMIMAAMNNN BB BEE E EEE E 


00000000000 SN NNO OAS O 


1b-Ben-1964 00:14:35 yaKett BLieg=sz ve.0-74 re SS 


} GLOBAL ROUTINE FIND_QUEVE_REFERENCES(SMQ_NF)= 
: jee | 
1 FUNCTIONAL DESCRIPTION: | 
1! This routine finds references to a specified queue anywhere in the 
; queue. 
1 | INPUT PARAMETERS: | 
! } SMQ_NF - Record number of SMQ. | 
1 | IMPLICIT INPUTS: 
: : NONE 
1 § OUTPUT PARAMETERS: 
' NONE 
1! IMPLICIT OUTPUTS: | 
: } NONE 
1 ' ROUTINE VALUE: 
' NONE 
1 | SIDE EFFECTS: | 
1! NONE 
1 ' 
1 << | 
| 
BEGIN 
LOCAL 
SQH: REF BBLOCK, ' Pointer to SQH 
SQx: REF BBLOCK, ! Pointer to SQx 
SQX_N ! Record number of SQX 
SOX"NS, ' Record number of successor of SQX 
SQE: REF BBLOCK, ' Pointer to SQX entr 
SMQ_N, ! Record number of SM 
SMQ: REF BBLOCK; ! Pointer to SMQ 
Read the queue header. | 
SQH = READ_RECORD(SQHSK_RECNO); 
Search for queue references in each job List Linked from the queue header. 
if FIND QUEUE _REFERENCES_J(.SMQ_NF, .SQH sone _OPEN_LISTJ) 
OR FIND ~QUEUE REFERENCES. 4(.SMO“NE, - SQHE SQHSL-PENDING_BATCH_LIST]) 
OR FIND-QUEUVE_REFERENCES_J(.SMQ_NF, .SQHCSQHSL_PENDING PRINT_LISTJ) 
OF LURE “REFERENCES _J(. ona “NF, .SQHCSQHS$L_TIMER_LTSTJ) 
BEGIN 
OetEA SE ~ + gmhagaimas RECNO); 
tp URN 
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Loop over all queve headers. 
SQX_N = .SQHCSQHSL_ QUEUE INDEX_LISTI; 


RELEASE_RECORD(SQHSK_RECRO) 
WHILE, -SOX_N NEQ 0 DO 


Read the queve index recerd. 
$QX = READ_RECORD(.SQX_N); 


Search the queve index. 


SQE = SQX(SYMST_DATA); 
INCR SQE_N FROM"O TO SQXSK_ENTRIES-1 DO 


IF CHSRCHAR(SOECSOXST_NAME]) EQL 0 
EXITLOOP 

LSE 
BEGIN 
} Read the queue header. 


SMQ = READ_RECORD(SMQ_N = .SQECSQX$L_QUEUE_LINK]); 


SALINE SSLEATRATILSSSNSAR AW SSHUSAF 


NWAWAANAN AWN ANNAAAAINNAANAN AAA NNANANNAN AANA ANAA 


WAANA AAA AAA Ww 
POPOPOPIPOPOPUPINIPIPYIPIPIPINININININININININININNNINININNINNITNIN 2 2 2 OO OO OO OS 


PDE at et tk kd dd od od 


NM —=OOONOAUES WN OO ONAUE WN $0 OONOAUES WN 0 OONOUE WN NOUS WN —OO@W 


4 
4 
4 
4 
4 
5 
; 
2 5 ! Search for queue references in the queue header and in each job 
2 } List Linked from the queue header. | 
5 if .SMQCSMOSL_ASSIGNED QUEUVE_LINK] EQL .SMQ_NF 
OR FIND_QUEUE_REFERENCES_J(.SMQ_NF, .SMQCSMOS$L_CURRENT_LISTJ) 
44 Fee EUS PEPER ES 15 2 - SMQCSMQ$L_HOLD_LISTJ) 
99 6 BEG! 
00 6 RELEASE_RECORD(.SMQ_N); 
01 6 RELEASE _RECORD(.SQX_N); 
OF RETURN TRUE; 
0 END; 
08 
BS : Search for generic target references to the queue. 
208 3 IF .SMQCSMQSL_GENERIC_TARGET] NEQ 0 
09 5 THEN 
$19 6 BEGIN 
11 6 LOCAL 
\§ 6 AUX_N, ! Number of auxiliary record 
+ ? AUX: REF BBLOCK; ! Pointer to auxiliary record 
15 6 AUX = READ_RECORD(AUX_N = .SMQCSMQ$L_GENERIC_TARGET]); 
18 § seceag i - -VECTORCAOXCSYMST_DATA), To 1 00 
H 7 IF .VECTORCAUXCSYMST_DATA], .N] EQL .SMQ_NF 
1 7 THEN 
20 8 BEGIN 


Queue manipulation utilities 


os5i 


3 1 4 RELEASE _RECORD( .AUX_N); 
3 4 ATE BATA he HE 
; 45 RELEASE RECORD(.SQX_N); 
3 4 RETURN TRUE; 

: 5 4 END; 

3 § rh 6 ND; 

3 4 RELEASE _RELORD(.AUX_N); 

; 8 » ND; 

3 9 

3 1 § Release the queue header. 

3 : 5 RELEASE_RECORD(.SMQ_N); 

$ § 4 END; 

3 5 HM ? 

; 7 59 4 SQE = .SQE + SQX$S_SQXx; 

5 8 60 END; 

3 9 61 

3 2240 ¢ 

3 23 o7 Advance to the next index block. 

5 rk 65 SQX_NS = .SQXCSYMSL_LINK]; 

3 22446 96 RELEASE_RECORD(.SQX_N); 

3: 2245 6 SQX_N = .SQ 3 

3 ré 68 3 

3; 226 269 

3; 2248 $00 

3 $$ep 71 FALSE 

3; 2250 272 1 END; 


OFFC 00000 

5E 04 C2 0000 

01 0D 0000 
00000000G_ EF 01 FB 00007 
52 50 DO OO00E 
4C A2 DD Booi 4 
56 04 AC DO 00014 
56 DD id 
96 = AF 2 4) QO1A 
26 E Bee 

54 A2 OD 38 
33 DD 00024 
BA AF Fe 0026 
1A 50 € O2A 
5C A2 DD 00020 
56 DD 000 
FF7D =sCF 2 4 0 § 
0D E 

68 Ae DD A 
3 DD D 
FF70 —sCF FB F 
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FIND QUEUE REFERENCES, Save R2,R3,R4,R5,R6,- 
By RELAY ATO,RIT 


#1, READ_RECORD 


, , FIND_QUEUE_REFERENCES_J 
84(SQH) 

#2, FIND QUEUE_REFERENCES_J 
92(SQH) 

#2, F IND_QUEUE_REFERENCES.J 
RO. 1 

1 4(SQH) 

3, FIND_QUEUE_REFERENCES_J 


: 3129 


3170 


3175 


3176 


3177 


3178 
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WM HMMMMMMOOOIOMPOOOoOOow 
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2 


10 
; 0(SQH) 


_N 
#1, "READ 
RO. §S 
wie, Sax 
SQE_N 
(SOE) 

6% 

12$ 
36(SQE), 
#1, READ 
44(SMQ), 
72(SMQ) 
#2, FIND 
126(SMaQ) 
#2, FIND 


N 
ELE 


ELE 
RO 


X_N 


X-11 Oh fegase V4.0-74 
OBCTL.SRCJQUEVEUTIL.B52;1 


, SQX_N 


#1, RELEASE RECORD 


RECORD 
, SQE 


SMQ_N 
RECORD 
R6 


QUEUE _REFERENCES_J 


QUEUE _REFERENCES_J 


ASE_RECORD 


R 
N 
RELEASE _RECORD 
R 


ASE RECORD 


AUX_ 
#1, "RELEASE_RECORD 


#1 
#46, 
wii, wi 
asax, $d 


“RELEASE _RECORD 


SQE_N, 5$ 
X_NS 


Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Fe Fe Se Se Fe Fe Ge Fe Fe Ge Ge Se Ge Se Ge Ge Be Be Be Se Be Se Se Se Be SoBe Ge Fe Se Fe Fe Be Ge Be Fe Fe Fe Se Se Be Be 


teat? 


3; Routine Size: 


M10 
caer eye eggs Wergeb=18Rs P3:35:73 — abac te SReSoueutut ic .6$2;1 
000000006 Ef i i oP CALLS #1 “RELEASE RECORD 
FF 3D e 118 BRW ti ety 
50 ps4 11¢ 13$: CLRL RO 


287 bytes, Routine Base: CODE + 0C94 


Page 77 


(19) 
3266 
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QUEVEUTIL Queue manipulation utilities 16-Sep-1984 00:14:3 AX-11 Bliss-32 V4.0-74 Page 78 
vO4-000 1ergeb7 138s 99:45:73 | aba ct sR faoeutor st 6S2:1 9 oF 
H § a ! GLOBAL ROUTINE FIND_QUEVE(DESC;SQX_N,SQE,SMQ_N,SMQ): L_OUTPUT_4= ; 
; 4 75 1 S44 ; 
3 5 6 1! 3 
: 56 77 1 =! FUNCTIONAL DESCRIPTION: 5 
; ef 4: : This routine finds a queue header. ; 
3; 2259 80 1 ! INPUT PARAMETERS: $ 
; rs H+ : } DESC - Short descriptor for queue name. : 
; 6¢ He 1 ' IMPLICIT INPUTS: ; 
: 226 ee .? NONE 3 
3 2264 a 3 
3; 2265 56 1 ! OUTPUT PARAMETERS: ; 
: 5sog $ 1! SQX_N - Record number of SQX. F 
3; 2267 88 1! SQE - Pointer to SQx entry. | 3 
; 2268 289 1! SMQ_N - Record number of SMQ. a 3 
3: 2269 290 1! SmQ - Pointer to SMQ. 3 
3; 2270 3291 1! F 
3 2271 3595 1 ! IMPLICIT OUTPUTS: $ 
; ssi¢ 3293 1! NONE 3 
3: 227 3294 1! 3 
> 2274 3295 1 | ROUTINE VALUE: ; : ; 
3 2275 3296 1! True if the queue exists, false otherwise. 3 
3; 2276 3297 1! 3 
3; 2277 3298 1 ! SIDE EFFECTS: $ 
3; 2278 3299 1! NONE 3 
3; 2279 3300 1! 3 
; 2280 3301 1 !<= ; 
3; 2281 3302 1 3 
; 2282 3303 2 BEGIN | : 
3 TH 3304 2 MAP ‘ : 
3: 2284 3305 2 DESC: REF BBLOCK, ! Short descriptor for queue name s 
3; 2285 3306 2 SQE: REF BBLOCK, ! Pointer to SQX entry | ; 
3; 2286 3307 2 SMQ: REF BBLOCK; ! Pointer to SMQ 3 
3 2287 3308 § LOCAL 3 
3; 2288 3309 SQx: REF BBLOCK, ' Pointer to SQx - 
3; 2289 3310 § SQX_NS; ! Record number of successor of SQX 3 
: 2290 $31) 3 
3; 2291 31¢ 2 3 
; $535 $317 § : Search the queue index for the desired name. | : 
3 2294 3315 SQX = READ_RECORD(SQHS$K_RECNO); 3 
3 $532 3318 SQX_N = .SOXCSQHS$L_QUEUE_INDEX_LIST); 3 
3 2296 31 RELEASE_RECORD(SQHSK_RECNO); - 
3 2297 $318 WHILE .SQX_N NEQ 0 DO 3 
3; 2298 319 BEGIN é 
5 S$ 3320 $ 
$ 300 $35; : Read the queue index record. : 
3 $30) 335 SQX = READ_RECORD(.SQX_N); : 
: $302 335¢ | 
; 2305 3396 : Search the queue index for the desired name. | : 
; $309 3328 SQE = SQXCSYMS$T_DATA); : 
; 2308 3329 INCR SQE_N FROM"O TO SQX$K_ENTRIES~1 DO : 
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4 
14-Sep-19 JOBCTL. augueutii .882;1 


BEGIN 
F_ CHSRCHAR(SQECSOQX$ST_NAME]) EQL 0 


CASE CHSCOMPARE ( 
CHSRCHAR (SQECSQX$T NAME]) poctse $ 
DESCCSDSC_W_LENGTRJ, -deSctsosc 


FROM -1 TO 1 OF 
SET 


{-1): 
SQE = .SQE + SQx$S_SQx; 


(0): 
BEGIN 
SMQ = READ _RECORD(SMQ_N = .SQECSQX$L_QUEUE_LINK]); 
pcrunn TRUE; 


BEGIN 
RELEASE _RECORD(.SQX_N); 
RETURN FALSE; 
END; 
TES; 
END; 
END; 


Advance to the next index block. 


QX_NS = ; SOXCSYMSL_L INK]; 


S 
RELEASE_RECORD(.SQX_N); 
SQX_N =".SQX_NS; 


OOFC 00000 -ENTRY FIND QUEUE, Save R2,R3,R4,R5,R6,R7 

54 000000006 f i 900 HOVAB RELEASE RECORD, RG 

000000006 F 7 F op CALLS #1, READ_RECORD 

5 9 D 1 MOVL $Qx 

8 64 AS 00 0001 MOVL  100(SQx), SQX_N 
1 0D 0001 PUSHL 

64 1 FB 0018 CALLS #1, RELEASE_RECORD 
8 D5 OOO1E 1$: TSTL SQX_N 


{ 
{ 
{ 
! 
{ 
i 
{ 
i 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
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TIL Queue manipulation utilities 1h-5e 1984 00:14: AX-11 Bliss-32 V4.0-7 Page 80 

yoe-000 ’ een 138e $3:59:73 Ebert. saeSoceutots 6$2.1 : (209 
13 00 BEQL «= 7$ : : 
ee ise! 
000 G EF gi FB 024 CALLS #1, READ_RECORD : | . 
5 Q p 028 MOVL RO, ; : | : 
9 Oc AS 9€ MOV 12(R5), SOE ; 3328) : 
38 ps CLRL SQE_N ; 369 : 
3 28: TSTB = (SQE) : 3331) : 
8 1 09 BEQL = 6$ j : 
51 69 9A MOVZBL (SQE), R1 ; 3337 : 
0 04 Ac pO 0 MOVL DESC, RO : 338 : 
60 20 01 Ad ie 31 D O5f CMPCS RI, 1(SQE), #32, (RO), @2(RO) ; 333 | : 
ic ys Gopee germ as 3 : 
59 8 (6 o00c8 ADDL2 #40, SOE : 3344 : 
1¢ 11 OO4E BRB 35 ; : 
5A 24 AY DO 00050 3S: MOVL 6(SQE), SMQ_N ; 3348) : 
5A DD 00054 PUSHL  SMQ_ ; : 
000000006 EF gi FB 99 36 CALLS #1, ~READ_RECORD ; : 
7 0 D0 00050 MOVL RO. SMQ : : 
ac oe feent Saag | 
58 DD 00065 4$ PUSHL  SQX_N ; 3354 ; 
64 01 FB 00067 CALLS #1, RELEASE_RECORD ; : 
11 11 0006A BRB 7$ ; 3355 ; 
C4 58 08 F3 0006C 58: AOBLEQ #11, SQE_N, 2$ : 3329 ; 
56 65 00 00070 6$: MOVL  (SQK), SOX_NS ; 3365 : 
58 DD 0007 PUSHL  SQX_N- ; 3366 ; 
64 1 FB 00075 CALLS #1, RELEASE_RECORD ; : 

58 6 DO 00078 MOVL § SQX_NS, SQX"N ; 3367 

Al 11 00078 BRB 1$ : 3318 

50 04 0007D 7$: CLRL =. RO ; 3372 

58 57 DO OOO7F 8$: MOVL 7, R11 ; 
04 00082 RET ; 


; Routine Size: 131 bytes, Routine Base: CODE + 0DB3 
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1 
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AX-11 Bliss-32 v4.0 
JOBCTL.SRC QUEUEUTIL. 5 2:1 


GLOBAL ROUTINE DEALLOCATE_VARIABLE _DATA(FIELD_SIZE,FIELD_ADDRESS): 
tee 
i 


i FUNCTIONAL DESCRIPTION: 
: is routine deallocates extension records Linked to a fixed/variable 
dete field, 
INPUT sonoetiie 
FIELD_ADDRESS 


IMPLICIT INPUTS: 
NONE 


NOVALUE= 


if they exist. 
- Size of the fixed data field. 
- Address within the record of the fixed data field. 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


ee ee te te te 


FIELD_ADDRESS: REF BBLOCK; ! Pointer to fixed/variable buffer 


IF _ .FIELD_ADDRESSCFVDF LENGTH] GTRU .FIELD_SIZE = 2 
DEALLOCATE_RECORD_LIST(.FIELD_ADDRESSCF VDF _LINK]); 


CHSFILL(O, .FIELD_SIZE, .FIELD_ADDRESS); 
003C 00000 -ENTRY DEALLOCATE_VARIABLE_DATA, Save R2,R3,R4,R5 
52 08 Ac 06 0002 MOVL FIE ES 2 
50 04 AC 08 C3 00006 SUBL3 ae, FTE 1Zé, an? 
62 10 00 €D 000 CMPZV - tise Pahtt 
OA 1B 9001 BLEQU 
02 A2 DD O012 PUSHL  2(R2) 
00000000G_ EF 4 FB 0001 CALLS #1, DEALLOCATE _RECORD_LIST 
0 6E 0 2C 0001C 1$: movcS #0. (SP), #0, FIELD STZE, (R2) 
62 ou 00098 
04 000 RET 


Poge af} 


) 


1" | 
ne an ne IEHreciSt QOSMSEHE | WSSSLLSUESGHRMSHRCSosy a 
; Routine Size: 36 bytes, Routine Base: CODE + 0E36 | 


oururyrit Queue manipulation utilities 1b-ep-19 r 90:14:33 AX-11 Bliss-32 V4.0 


GLOBAL ROUTINE FETCH _VARIABLE_ITEM(FIELD_SIZE,FIELD_ADDRESS, ITEM_CODE, 1 TEM_BUFFER)= 


ee 


i 
FUNCTIONAL DESCRIPTION: 
This routine fetches an item from a fixed/variable data field. 


> tb 8 te 


INPUT PARAMETERS: 


3 ¢ 1 

5 1 

3 § 1 

$ 1! 

5 1! 

; 1! 

3 1} 

3 tek 

: 240 ¢ 1! FIELD_SIZE - Size of the fixed data field. 
3; 24 1! FIELD-ADDRESS = Address within the record of the fixed data field. 
3; 2405 4 1! ITEM_CODE = Type code for the item. 

§ £88 5 } H ITEM_BUFFER - Pointer to the item buffer. 

; 2608 3 1 ! IMPLICIT INPUTS: 

; 2409 8 1! NONE 

; 2610 9 1! 

3: 2411 0 1 ! OUTPUT PARAMETERS: 

: tig .; ae NONE 

: 241 ; 1! 

3 2614 1 ! IMPLICIT OUTPUTS: 

3 2415 1! NONE 

3 $18 a, Ba 

: 241 : 1 ! ROUTINE VALUE: 

3; 2618 1! Updated pointer to the item buffer. 

3; 2619 438 1! 

3; 2420 439 1! SIDE EFFECTS: 

: 2421 440 1! NONE 

3; 246 ; 441 1! 

: 26 g 1 !-- 

3 2426 44 1 

: ° 2 ree BEGIN 

3; 2427 446 FIELD_ADDRESS: REF BBLOCK; ! Pointer to fixed/variable buffer 
: st 8 447 LOCAL 

3 a8 ITEM: REF BBLOCK; ' Cursor for item buffer 
: 2431 450 

: 26 § 451 ITEM = .ITEM_BUF 

3 ; 2¢ If ae FIELD "ADDRESS Fie LENGTH] NEQ 0 

3 2635 54 BEGIN 

3 24 55 I TEREO-0-16.83 = of TELS ADDRESSCF VDF _LENGTH]; 

: 24637 26 ITEML2.0,16,0) = . ITEM M_CODE; 

3 26 5 ITEM = . ITEM + 4; 

: 26 58 IF .FIELD_ADDRESSCFVDF_LENGTH) LEQU .FIELD_SIZE - 2 
: 2440 459 THE 

: 26461 60 4 BEGIN 

3 264 61 4 movc3( 

3 244 re 4 r LELB ADBRESSEF VDE LENSINI. 

+ 2664 63 4 FIELD-ADDRESSCFVDF-DATAJ, 

: 2445 64 4 ITEM; 4... ITEM); 

: 2646 465 4 ND 

3: 2446 4] 3 

> 266 467 & BEGIN 

3 246 ree. & LOCAL 

; 2450 4 AUX_N, ' Record number of auxiliary record 
7 2451 0 4 INPOT_LENGTH; i Remaining input data 


JOBCTL.SRC QUEVEUTIL. if 2;1 


eC ee , 


ey Ses wee 1f-te r3een 188s i573 | ebecte se foceutur ie o$2:1 Page 5 


3; 26 ¢ 4 
3; 24 4 
: 4 : $ Initialize. 
; 24 § 4 INPUT_LENGTH = .FIELD_ADD FSF Luar -Lenetud: 
: 26 4 AUX_N"= .FIELD_ADDRESSCF VDF _LINKJ; 
388 
3; 24 % 
3 “at ? : Loop over all auxiliary information records. 
PY | 
; 246 4 WHILE .AUX_N NEQ 0 DO 
: 246 BEGIN 
3: 2464 LOCAL 
; 2465 AUX_NS, ! Record number of successor of AUX 
3 me ¢ | AUX: REF BBLOCK, ! Pointer to auxiliary record | 
; ret THIS LENGTH; i Length of current transfer | 
: 2469 
; 2470 AUK = READ_RECORD(.AUX_N 
: 2471 HIS_LENGTA = MINUC. ‘eva peers £a5°"5 DATA); 
3 247 novesCINpUT LENGTH, AUXCS ITER ooo ITEM); 
> 247 INPU GTA = a INPUT Seth = DATA H; 
3 2676 : nse - AUXCSY COUTNK " 
3 2475 RELEASE “RECORD. MAUR H N); 
; 2476 5 -AUX_NS; 
3 2477 & s/s 
3 2478 END; | 
: 2479 END; 
: 2480 ITEM 
3 2481 1 END; 
03FC 00000 -ENTRY FETCH. VARIABLE. ITEM, Save R2,R3,R4,R5,R6,- ; 3414 
53 10 AC DO 00002 MOVL TEN BUFFER, ITEM > 3451 
57 08 aC DO 00006 MOVL FIELD ADDRESS, R7 : 3452 
§ 83 900A TSTW (R7) : 
¢ 13 0000C BEQL 4$ : 
83 67 B80 O000E MOVW (R7), (ITE : 3455 
83 Oc Ac 8 0011 MOVW ITEM_CODE, (ITEM)+ ; 3456 
5 04 AC 02 C3 00015 SUBL 46° FIELD Size. RO : 3458 
50 6 10 0 Fo OO1A CMPZV #0, #16, TR7), RO 3 
07 1A O0O001F BGTR 1$ : 
63 02 = AZ 67 #6 o5 1 MOVC (R7), 2¢R7), CITEM) 2 
4g 1 00 6 BRB 4$ 3 34 § 
36 67 3C 00028 1$: MOVZWL (R7) INPUT LENGTH : 347 
5 02 A? 069 028 MOVL 2(R75, AUX_N : 3476 
33 1 9 F 28: EQL 4$ : 3481 
8 DD 1 PUSHL AXLN & : 3489 
00000000G_ EF 1 FB 00033 CALLS #1, READ_RECORD : 
7 0 D O3A MOVL R : 
0 6 D 0 MOVL INPUT LENGTH, RO : 3490 | 
000001F4 8F 30 D1 4 CMPL RO. as ; 
05 1B 0004 BLEQU 3 
| 
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JOBCTL.SRCIJQUEVEUTIL.B 


1986 93:45:73 


MO 
ale faye ABS k= 


SUB 

MOVL (AUX, 

PUSHL A 

CALL TA NELEASE -RECORD 
MOVL NS, AUXIN 

BRB 2 


MOVL ITEM, RO 
RET 
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i IMPLICIT OUTPUTS: 
i NONE 


i ROUTINE VALUE: 
: Updated pointer to the item buffer. 


! 

' 

' 

' 

' 

] 

' 

! 

] 

' 

' 

' 

i QUTPUT PARAMETERS: 
; NONE 
' 

' 

' 

' 

' 

' 

i SIDE EFFECTS: 
: NONE 
i] 


FIELD_ADDRESS: REF BBLOCK; 


SONA UE UN $9 OSNOUES WN" OOONOAUE WOO 


ITEM: REF BBLOCK, 
a: REF BBLOCK, 
I; 

BUFFER: BBLOCKL1024); 


= 
RUN LSSOVSARGNAOSSIS APA OSS IRA 


BEE PW 


. ITEM _BUFFER; 
VARIABLE “DATAC, FIELD_SIZE, .FIELD_ADDRESS, 1024, BUFFER); 


Prev _ADDRESSCFVDF_LENGTH); 
CSSA -E DO 


= oACO.9.16.03; 
= A+ 2: 
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re 3 1 GLOBAL ROUTINE FETCH_VARIABLE_ITEM_LIST(FIELD_SIZE,FIELD_ADDRESS, ITEM_CODE, 1 TEM_BUFFER)= 
nt 5 j 1+¢ 

4 5 i FUNCTIONAL DESCRIPTION: 

; : pict vee fetches a sequence of items from a fixed/variable data 
490 i ° 

491 ' INPUT PARAMETERS: 

4G : FIELD SIZ - Size of the fixed data field. 

49 FIELD_ADDRESS = Address within the record of the fixed data field. 
4 ITEM_CODE - Type code for the first item, incrementing by 1. 
495 ; ITEM_BUFFER - Pointer to the item buffer. 

49 i IMPLICIT INPUTS: 

498 ' NONE 


re| 


w 
ro 


235 


Page 


-32 at mle 
QUEVEUTIL .852;1 


Uioactu sre 


13 


93:43 


18-Sep-19 4 
12286871382 


Queue manipulation utilities 


oye UE UTIL 


- mw WO FO MIMNDOO--MOwo 

oO wv TT FTF MMMNNOOTO 

wo ww wMn WW WNnnmnm 

~ me MOD REO MMMMmMmnmnny 

Sete te teeta te Fe Fe Fe Fe Fe Feta tea ee ee ee te ee te te ee te 

a 

. 

w 

t+ 4 

7 

w 

a 

+ 

La) 

< 

*. 

N 

< 

a 

= 

@ 

” 

. 

ee 

” 4 

_ | od 

oud << 

v a 

= 7 

w w 

a = aw Ww 

a w ot 

4 e ” 7 

w ot —— WwW ~ 

—_ a ‘cw = 

2 Ms a fw w 
@Qaas> <« — 

_ w Ww | G&G . tt 

ec nue Y~NTSEO WwW a~Aw 

<x< au tio <«< & z= o 

> Wa Me - § © + ww s + 

'‘~-@ '* wrcoa wo eee 

zest Wouwi i . ee . 

Vane NY www + ~~ww = 

—- Ow Ow wn WwW ~ w 

wore es Due se WMEM 28 8s ME 

we ie—MB@mu BOC aMev oe ete 

> —_ 2 = 

[+ 4 2 a | “en 23 ~*~ 

load arn 9o uen JI JONUISB BUY 

2 2>row>e>zrs> >a rawro>>>vud>s 

w OOoOrooatooocozVOWOOCOZaZOw 

* £BEZPASFVTESFAEVOTOLESE Osteo 

a fr“ A 
- nN! 

coo Se HK ONUNOUOM MVS INT TT 

Ss SOOoCOOCOOOOCCOoCOoCOoOoCOoOoCoOSoSo 

S&S SOoCoOCOCOOOoOCoOoOooooooooSo 

So COOOOCOCOCOCOCOOCOOCoOOoCoOoOoooOO 

Y WOOVOODWVOCOK—-WOMOOOO- Ov 

Ss Hao‘ & OmMveaodeM-- OMDOwo- ao 

o 


WOW OS WORK Ve Me LOOWOOOM 
VINOD ZOWOMN aM DOMMNINW 


oo ov oOo w 
o- OO o Oo 
vw w 
“ Oo 


we) 
nw 


63 


Routine Base: CODE + OEC8 


69 bytes, 


= 
N 
a 
¢ 
- 
ro) 
> 
fe) 
io4 


K 11 
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voe-600 : 1935-1 $8e BH JOBCTL.SRCJQUEVEUTIL.B52;1 


; ° of \ GLOBAL ROUTINE FETCH VARIABLE _DATA(FIELD_SIZE,F IELD_ADDRESS ,BUFFER_LENGTH,BUFFER_ADDRESS): NOVALUE= 
: $384 iis 

. ' 

; 4 71 1 =! FUNCTIONAL DESCRIPTION: 

3 5 4 ! This routine fetches data from a fixed/variable data field. 

; $ 74 1! INPUT PARAMETERS: 

3 3 7 2% FIELD_SIZE - Size of the fixed data field. 

; 16 +? FIELD ADDRESS = Address within the record of the fixed data field. 
; 2560 7 BUFFER_LENGTH = Descriptor for output buffer. 

; 6) i : BUFFER_ADDRESS = 

3 es 580 1 ! IMPLICIT INPUIS: 

3 2564 231 3! NONE 

; 2565 286 1! 

H 206 583 1 ! OUTPUT PARAMETERS: 

3; 256 584 1! NONE 

; 2568 585 1! 

: 2569 a] 1 ! IMPLICIT OUTPUTS: 

; 2570 587 1! NONE 

; 2571 588 1! 

3 206 589 1 ! ROUTINE VALUE: 

; 257 590 1! NONE 

3: 2574 591 1! 

: 2575 206 1 ! SIDE EFFECTS: 

3; 2576 5935 1! NONE 

: 2577 594 1! 

; 2578 595 1 !-- 

3; 2579 596 1 

; 2580 597 BEGIN 

; 2581 598 P 

3 266 3599 FIELD_ADDRESS: REF BBLOCK; ! Pointer to fixed/variable buffer 
; see 3600 LOCAL 

3; 2584 $253 AUX_N ! Record number of auxiliary record 
; 2585 rt AUX=NS, ! Record number of successor of AUX 
3; 2586 360 AUX: REF BBLOCK; ! Pointer to auxiliary record 
3; 2587 604 

3; 2588 605 

3: 2589 60 IF .FIELD_ADDRESSCFVDF_LENGTH]) LEQU .FIELD_SIZE - 2 

; 2590 60 THEN 

3; 2591 608 BEGIN 

; 235 609 CHSCOPY ( 

3 3594 ei9 FIELD_ADDRESSCF VDF _LENGTH], FIELD_ADDRESSCFVDF_DATA), 

> 2595 61g -BUFFER_LENGTH, .BUFFER_ADDRESS); 

3; 2596 61 

3; 2597 614 ELSE 

3; 2598 615 BEGIN 

: 2599 616 OCAL tages T 

: 2600 61 INPUT LENGTH ! Remaining input data 

; 2601 18 CURRERT_LENGTH : penetenee buffer Length 

; 60¢ 19 CURRENT_ADDRESS; i Current buffer address 

; 260 620 

3 2604 621 

: 2605 6 § ! Initialize. 

3 2606 : 
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INPUT LENGTH = .FIELD_ADDRESSCF VDF _LENGTH); 
CURRERT_LENGTH = .BUFFER LENGTH; 
CURRENT-ADDRESS = .BUFFER ADDRESS; 

X_N =". FIELD_ADDRESSCF VDF _LINKI: 


} Loop over all auxiliary information records. 
WHILE TRUE DO 

BEGIN 

AUX = READ _RECORD(.AUX_N); 

ae SYMSL_LINK] EQc 0 


BEGIN 
CHSCOPY ( 
MINU(.INPUT_LENGTH, SYM$S_DATA), AUXCSYMST_DATA], 


~CURRENT_LENGTH, .CURRENT_ADDRESS); 
RELEASE RECORD(.AUX.N); 
EXITLOOP; 


BEGIN 
LOCAL 
THIS_LENGTH; ! Length of current transfer 


THIS LENGTH = MINU(.CURRENT_LENGTH, SYM$S_DATA); 
CURRENT_ADDRESS = CHSMOVE ( 
-THTS_ LENGTH, AUXCSYMST_DATA], .CURRENT_ADDRESS); 
CURRENT_LENGTH = .CURRENT_LENGTH = .THIS_LENGTH; 
IF .CURRENT LENGTH EQL 0 THEN EXITLOOP; 
AUX_NS = .AOXCSYMSL_LINKI; 
RELEASE_RECORD(.AUX_N); 
AUX_N = .A G 


OFFC 00000 .ENTRY FETCH_VARIABLE_DATA, Save R2,R3,R4,R5,R6,- 
5E 04 ¢2 0000 SUBL2 #4. SP 
58 08 AC 00 0000 MOVL  FIELD_ADDRESS, R8 
04 AC 08 C3 00009 SUBL3 #2, FIELD SIZE, RO 
10 0 FD 000E CMPZ2vV #0, #16, SFIELD_ADDRESS, RO 
OB 1A 00014 BGTRU 1$ : 
02 AB 08 BC 2C 60016 MOVCS @FIELD_ADDRESS, 2(R8), #0, BUFFER_LENGTH, - ; 
10 BC : Oot nol @BUFFER_ADDRESS : 
57 08 BC ge 0021 1$ MOVZWL a@FIELD_ADDRESS, INPUT_LENGTH 
36 oc AC 06 00 5 MOVL BUFFERTLENGTH, CURRENT LENGTH 
B 10 AC DO 00029 MOVL §§ BUFFERTADDRESS, CURRENT_ADDRESS 
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; Routine Size: 150 bytes, Routine Base: CODE + OFOD 


M11 
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vite 13-808-1382 00:43:33 POBCTL SRC JQUEUEUTIL.B 231 9° 28) 

SA 02 As DO D MOVL § 2(R8), AUX_N ; 3637 : 

A DD } 2s PUSHL AUX_N 3 3634 : 

000000006 Ef 8. CALLS #1, READ_RECORD : ; 

.) 0 OD A VL RO, AU 5 } ; 

9 D ; D TSTL (AUX ; 3635 | : 

5 1 F BNEG  4$ : | F 

50 D 41 MOVL ‘INPUT ENGTH, RO : 3639. ; 

000001F4  aF 30 D1 00044 CMPL = RO, #5 ; : 

0 18 00048 BLEGU 3$ 3 : 

50 O1F4 = BF 3¢ 004D MOVZWL #500, RO : : 

56 00 Oc Ad 50 2C 00052 38: MOVCS RO, 12(AUX), #0, CURRENT_LENGTH, - + 3641 ; 

68 9005 (CURRENT _ADDRESS) ; | : 

A bd 0005 PUSHL AUX_N + 3642 : 

000000006 EF 01 FB 9005 CALLS #1, RELEASE_RECORD : : 

04 0006 RET : 3637 ; 

50 56 DO 00063 4$: MOVL § CURRENT_LENGTH, RO : 3651 ; 

000001F4 F 50 D1 00066 CMPL = RO, -#500 : : 

0S 18 90060 Qu 5$ ; : 

50 O1F4 BF 3C O006F MOVZWL #500, RO F : 

58 50 00 00074 5$: MOVL RO, THIS_LENGTH : F 

68 oc a9 58 28 00077 MOVC3 THIS_LENGTH, *?(AUX), (CURRENT_ADDRESS) : 3653 : 

58 53 dO 0007C MOVL R3, CURRENT_A VRESS 3 : 

56 58 ce 0007F SUBL2 THIS_LENGTH; .URRENT_LENGTH + 3654 ; 

11 13 00082 BEQL 6$ : 3655 ; 

6E 69 00 00084 MOVL (AUX), AUX_NS ; 3656 : 

5A DD 00087 PUSHL e : 3657 ; 

000000006 EF 01. FB 00089 CALLS #1, RELEASE_RECORD ; ; 

SA 6E D0 00090 MOVL § AUX_NS, AUX=N : 3658 : 

9€ 11 00093 BRB 2$ : 3632 ; 

04 00095 6$ RET : 3662 : 
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v04- 14- =3E p= 1384 JOBCTL.SRCJQUEUEUTIL. 8 2:1 (25) 
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GLOBAL ROUTINE STORE_VARIABLE_DATA(RECORD_ADDRESS,FIELD_SIZE,FIELD_ADDRESS, TYPE_CODE ,DATA_LENGTH,DATA_ADDRE 


'o4¢ 


i 
FUNCTIONAL. DESCRIPTION: 

This routine stores date.) in a fixed/variable data field. These fields 
allow a string up to 65535 bytes to be stored and retrieved by use of 
extension queue records; however, a string that does not exceed the 
fixed field size 1s stored without use of auxiliary records. 


INPUT PARAMETERS 
RECORD “ADDRESS - Pointer to record containing the fixed/variable data 


field. 
FIELD_SIZE Size of the fixed data field. 
teee at 


AAAS S52 
PAA ASSIS 
—OODONOUSWN—OOoOnN 

o 

~“ 

oO 


Mrornoronororons 


Address within the record of the fixed data field. 
Value of SYM$B_TYPE for extension records. 


i 
i 
i ' 
i 
i 
i } 
i 
| 
3 | 
i 
: | 
i 
266 3679 i DAT “LENGTH Descriptor for data to be stored. | 
664 3680 i DATA “ADDRESS | 
2665 3681 i 
66 368 i since INPUTS: 
2667 368 i ONE | 
2668 3684 i 
2669 3685 i OUTPUT PARAMETERS: 
2670 3686 i NONE 
2671 3687 i 
267 3688 i IMPLICIT OUTPUTS: 
267 3689 i NONE 
2674 3690 i | 
2675 3691 i ROUTINE VALUE: 
i Completion status. 
2677 3693 i 
2678 3694 i SIDE yt 
2679 3695 i ONE 
2680 3696 1 i | 
2681 3697 ie 
2682 3698 
2684 370 , 
2685 3701 RECORD_ADDRESS: REF BBLOCK, ! Pointer to record 
2686 FIELD_ADDRESS: REF BBLOCK; ! Pointer to fixed/variable tuffer 


lee ADDRESSCFVDF_LENGTH] NEQ 0 
DEALLOCATE_VARIABLE_DATA(.FIELD_SIZE, .FIELD_ADDRESS); 


FIELD_ADDRESSCFVDF_LENGTH] = .DATA_LENGTH; 

IF .DATA_LENGTH LEGU .FIELD_SIZE -"2 

THEN 
BEGIN 

CHS COPY ¢ 

-DATA_LENGTH, .DATA_ADDRESS, 

yp *FTELD.SIZE-2, FIELD_ADDRESSCFVDF_DATA); 
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2683 3699 2 BEGIN 
2 MAP 
2 
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1 74 

‘ 748 
749 

750 

5 751 
23g 

7 75 
754 

9 755 
740 736 

741 75 
PG 758 
74 759 
744 760 
745 761 
74 76 
ue 76 
748 764 
749 765 
750 76 
753 768 
434 769 
754 770 
755 771 
7 $ 77 
7? 77 
758 774 
759 775 
760 776 
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1 
1 
BEGIN 
LOCAL 

SEQUENCE, 

AUX_NP, 

AUX"P: REF BBLOCK, 
AUX"N, 

AUX? REF BBLOCK, 


UX? 
CURRENT_LENGTH 
CURRENT ADDRESS; 


Pol 


Initialize. 
SEQUENCE = 0; 
AUX_NP = 0; 
CURRENT_LENGTH = .DATA_LENGTH; 
CURRENT-ADDRESS = .DATA_ADDRESS; 
Loop until all source data is stored. 
WHILE TRUE DO 
BEGIN 


OCAL 
THIS 
STATO 


pryoee $orshii2 — Eadactu seedaceutotsL 


Sequence counter 


ord number of predecessor of AUX 
nter to predecessor of AUX 


Record number H auxiliary record 
Pointer to auxilia d 
Remaining source Length 

Current source address 


ry recor 


LENGTH, ! Current transfer Length 
S; ! Status return 


! Obtain the minimum of the remaining input Length and the space 


: available in one record. 
THIS_LENGTH = .CURRENT_ LENGTH; 


IF .THIS_LENGTH GTRU SYM$S_DATA THEN THIS_LENGTH = SYM$S_DATA; 


Allocate the record and set up the forward Link. 


STATUS = ALLOCATE_RECORD( ; AUX_N, AU 
IF NOT . STATUS 


BEGIN 
DEALLOCATE_RECORD 7 


S 
CHSFILL(O,” FIELDSIZE, EL6 


RETURN . STATUS 
END; 
IF .AUX_NP EQL 0 
gef LELD-ADDRESSLF VDF _LINK] = .AUX_N 


BEGIN 
AUX_PCSYMSL_LINK] = .AUX_N; 
BEURETE RECORD AUK_WP); 


Initialize the record header. 


x); 


T(. FIELD ADDRESSCFVDF_LINK)); 
.FIELB_ ADDRESS); 


32:1 
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Queue manipulation utilities 1b-3ep-1 -1 AX-11 Bliss-32 v4. Page 93 
le-Sep -1 198 99: 3: 3 JOBCTL.SRC oueututs BS2: :1 . (23 
: 2761 777 4 SEQUENCE = .SEQUENCE + 1; 
: 276 178 4 AUXCSYMSB_TYPE] = TYPE CODE: | ey | 
: 276 779 & AUXESYMSB~AUX SEQUENCE = ,StQuU 
> 2764 780 & AUXESYMS$W-SEQUENCE) = RECORD Se ORESSCSy W_ SEQUENCE); 
; 169 f 1 é AUXCSYMSL-ENTRY_NUMBER] = .RECORD_ADDRESSCSYMSL_ENTRY_NUMBER]; 
3 res 7 4 4 
3 res f : 2 } Move the information. 
3 ry f ? CHSMOVE(.THIS_LENGTH, .CURRENT_ADDRESS, AUXCSYMST_DATA]); 
: 277 788 4 
: e777 7 4 4 date current length and address for the next record and quit if 
: ae ry ? all data has been transferred. 
: 277 138 4 CURRENT LENGTH = .CURRENT_LENGTH - aitils _LENGTH; 
+ 277 793 4 .CURRENT_LENGTH EQL O THEN EXITL 
: 2778 794 & tiaRENt ADDRESS = . CURRENT MADDRESS ys Pints LENGTH; 
: 2779 795 END; 
; 2780 738 
: 2781 79 
3 27 ¢ 798 REWRITE_RECORD(.AUX_N); 
: 783 799 END; 
3; 27 800 
; 2785 801 
: 8 80 SS$_NORMAL 
: 27 80 END; 
; INFO#250 :3770 
; Referenced LOCAL symbol AUX. P is probably not initialized 
OFFC 00000 -ENTRY STOR saoeatecant Save R2,R3,R4,R5,R6,- ; 3663. 
5E 18 C2 0000 SUBL2 Boke ; 
56 0c AC DO 0000 MOVL FIELD ADDRESS, R6 : 3705. 
66 85 00009 TSTW (R6) : 
A 13 00008 BEQL 1$ 3 
6 DD 00000 PUSHL R6 > 3707. 
08 AC DD O000F PUSHL ay LD_SIZE : 
FE7C «OCF 02 FB OOls CALLS @# DEAL LOCATE VARIABLE_DATA 3 
66 14 «OA 80 901 1$: MOVW DATA_LENGT ; 3710 
50 08 Ac 02 C 1B SUBL3 #2 FIELD Size, RO : 3711 
50 14 AC 01 00020 CMPL = DATA_ LENGTH, rb ; 
OC 1A 00024 BGTR 3 
50 00 18 BC is AC 2c 99 6 MOVC DATA_LENGTH, @DATA_ADDRESS, #0, RO, 2(R6) ; 3717) 
009 3} f BRwW } : 3711 
Oc AE 7C é 2s: CLROQ AUX : Pee | 
04 AE 14 ac 70 MOVQ ATK LENGTH CURRENT LENGTH : 3735 | 
f 4 ac D 9 A MOVL RECORD ADDRESS, (SP)~ : 3780 
6 ac D MOVL RECORD ADD :- R : 3781 
8 4 AE D 42 3%: MOVL CURRENT LENGTH THIS_LENGTH : 3751 
000001F4 3 D 4 CMPL  THIS_LERGTH, #500 : 3752 
1B 0004D BLEQU 4$ : 


asa 
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000000006 gf 

7 

15 

000000006 EF 

00 6E 
50 

02 Ab 

14 «BE 
00000000G_ EF 

04 AB 

0S AB 

50 6E 
06 AB 

08 AB 

Oc (AB 08 BE 
04 AE 

08 AE 


000000006 ff 


200 bytes, Routine Base: 


O1F4 


02 


oc 


CODE + OFAS 


ooooo 
CoOoCooo 


oooo 


QA4 
OA9 


SSsss 
ooooo 
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5$: 


6$: 


7$: 


33 AX-11 Bliss-32 V4.0-7 


JOBCTL.SRC aueututit 8 231 


#500, THIS_LENGTH 
#0, A Au LOCATE _RECORD 
ide 


» DEALLOCATE_RECORD_LIST 
50. (SP), #0, FIELD_STZE, 


STATUS, RO 

AUX_NP 

AUX_N, 2(R6) 
AUX_N, @AUX_P 
AUXNP 

#1, REWRITE_RECORD 
SEGUE 


TYPE CODE, 4(AUX) 
SEQUENCE, 5 (AUX) 


(R6) 


a UX) 
THIS_LENGTH, @CURRENT_ADDRESS, 
THIS— “LENGTH: CURRENT_CENGTH 


TEIS_LENGTH, CURRENT_ADDRESS 


12 (AUX) 


AUX_N 
#1, “REWRITE_RECORD 
#1, RO 


Page 94. 
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3763 | 
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GLOBAL ROUTINE STORE VARIABLE _DATA_LIST(RECORD_ADDRESS,FIELD_SIZE,F IELD_ADDRESS,TYPE_CODE)= 


!ee 


FUNCTIONAL DESCRIPTION: 
This routine stores date,in a fixed/variable data field. These fields 


oO 


: Deallocate an existing variable data area, if it exists. 
if .FIELD_ADDRESSCFVDF_LENGTH] NEQ 0 
DEALLOCATE_VARIABLE_DATAC.FIELD_SIZE, .FIELD ADDRESS); 


SSBSSSeSe? 
DIAMANT 


ted 
SOOONOM 


Be ) 

; 3 1 

3 ¢ 1! 

; 1! 

; ie 13 

3; 2795 19 1! allow a string up to 65535 bytes to be stored and retrieved by use of 
; 38 5 £ extension queve records; however, a string that does not exceed the 
; fe \§ : : fixed field size is stored without use of auxiliary records. 

: 139 14 1 | INPUT PARAMETERS: 

: a0 1? : : RECORD_ADDRESS = eyiocer to record containing the fixed/variable data 
; o6 13 1! FIELD_SIZE - Size of the fixed data field. 

; 280 18 1! FIELD ADDRESS = Address within the record of the fixed data field. 
3 2806 819 1! TYPE _CODE - Value of SYMS$B_TYPE for extension records. 

; 2805 : Y } (Length, address) pairs for each string to be stored. 

: 809 8 g 1 IMPLICIT INPUTS: 

PR ea oe 

> 2810 825 1 | OUTPUT PARAMETERS: 

eo ip 

; B18 8 : 1 | IMPLICIT OUTPUTS: 

06 6g) 

; 816 831 1 | ROUTINE VALUE: 

: sii S36 : H Completion status. 

: 2819 834 1 | SIDE EFFECTS: 

; 2820 835 1! NONE 

3 BBL 

: $855 es 1 

: : 3 +H BEGIN 

: 896 841 RECORD_ADDRESS: REF BBLOCK, ' Pointer to record 

3 tH ote men FIELD_ADDRESS: REF BBLOCK; ' Pointer to fixed/variable buffer 
3 2829 844 LN ! Index of Last non-null parameter 
; 845 DATA_LENGTH, ' Total length of stored data 

: 1 Beg BUFFER: BBLOCKC1024), ! Buffer for stored data 

3 § 3 CURRENT_LENGT!; ' Length of current string 

; re CURRENT-APORESS; ! Cursor for data storage area 

HY BUILTIN 

3: 2835 0 ACTUAL COUNT 

3 H ACTUALPARAME TER; 

; i 4 

: T 


FELLER 


MEW oO 


R6_R 
SE FCOO §=6CE «(9E 0000 MOVAB -1024(sSP5 
A OC AC OD 0 MOVL FLELD _ADDAESS. R10 
fl 0B (R10) 
00 1$ 
Dd 0000F R10 


TIL Queue manipulation utilities 16-Sep-1984 4: AX-11 Bliss-32 v4.0 Page 26 
vr tata 1b-Sep-1946 99: o ‘#3 JOBCTL.SRC dbtutotye 82:1 . (26) 
; § Strip trailing null strings from the List of string descriptors. 
3 LN = 0; 
3 DECR WN FROM ACTUALCOUNT()-1 TO 5 BY 2 DO 
3 IF ACTUALPARAMETER(.N) NEQ 0 
3 § THEN 
3 4 BEGIN 
3 4 4 IN=., 
; ; 4 EXITLOOP 
: 8) END; | 
3 B38 | 
3; 2860 ! Compute the total length of the data to be stored including the length word 
: 2861 6 for each string. | 
3 Bef 7 DATA LENGTH = 
3 2864 7 INCR"N FROM 5 9% .LN BY 2 DO | 
; 2865 80 BEGi 
P4 ¥¢ 1 81 DATA_LENGTH = .DATA_LENGTH + 2 + ACTUALPARAMETER(.N); 
: 286 88 END; 
3 aoe 88 
; 286 884 
3 ayy 1H : Build a buffer containing the data to be stored. 
; are BBS CURRENT ADDRESS = BUFFER; 
3 287 88 INCR N FROM 5 TO .LN BY 2 DO 
3; 2874 889 BEGIN 
3; 2875 890 CURRENT_LENGTH = ay gee SA ); ' Fetch Length 
3 o76 891 (. CURRERT_ADDRESS)<0,16> = . CURRENT LENGTH; ' Store Length word 
: 287 89 CORRENT_A ADDRESS = .CURRENT_ADDRESS ? 2; ' Point past length 
; 2878 89 MOVC5( ' Store data 
3; 2879 894 CURRENT 
3 2880 895 ACTUAL PARAMETER (.N 
; rt 2 . CURRENT RADDRESS: eee + URRENT ADDRESS); 
3 BBS 943 
3; 2884 99 
: 2885 900 ' Store the data. 
3 ty] 901 ‘ 
; 288 90 STORE _VARIABLE_DATA( 
3; 2888 90 »RECORD_ADBRESS, 4 | SIZE, .FIELD_ADDRESS, .TYPE_CODE, 
3 2889 904 “DATA ROENGTH. BUFFER) 
3; 2890 905 D; 

07FC 00000 -ENTRY STORE_VARIABLE DATA_LIST, Save R2,R3,R4,R5,-; 3804 


; Routine Size: 123 bytes, Routine Base: CODE + 1068 


12 
TIL Queue manipulation utilities 18- ep-19 2146: AX-11 Blis P 97 
voe-000 / lerSepmt9be 83:88:12 Woact. sae Saueueut ie -082;1 79° (26) 
08 aC dD 00011 PUSHL FIELDS 12 : 
FDB2~=séCF 9 FB 14 CALLS , DEALLOCATE_VARIABLE_DATA : 
p 19 1$: cLRL : 3863, 
50 ¢ A 00018 MOVZBL COP), : 3864 
p 1 INCL : | 
A BRB Ss 3 
64 ? 28 TSTL (AP) (NJ 3 3866 
BEOL $ ; | 
59 D MOVL NN, LN > 3869) 
1 A BRB 4$ ; 3868 | 
be C Cc 3$ SUBL2 #2, N 3 3864 
: F CMPL #5 ; | 
gE a 2 BGEG 82 : 
D4 9 4$: CLRL DATA_LENGTH : 3878) 
50 3 00 MOVL #3, Q : 3879 
9 11 00 BRB : 
51 6640 0 0038 5$: MOVL P)CNJ, R1 + 3881 
7 02 A14 F F MOVAB 2¢nt) DATA_LENGTH], DATA_LENGTH : 
FFF 50 : 59 F 44 6S: ACBL #2, N, : 3879 
6 3 004A V Buren, CURRENT_ADDRESS ; 3887 
6 D 9040 MOVL ; 3888 
10 11 00 3 BRB a$ : 
58 6C46 D0 00052 78 MOVL (AP)ENI, CURRENT_LENGTH : 3890 
4 58 8B 5 MOVW CURRENT_LENGTH, TCURRENT_ADDRESS)+ 3; 3891 
0 04 Ac4 005 MOVL. 4(AP) R : 3895 
$3 60 3 005 MOVC3 CURRENT -LENGTH, (RO), (CURRENT_ADDRESS) + 3896 
FFEA 6 02 9 F1 00062 8$: ACBL LN, : 3888 
4080 8F BB 000 PUSHR #*M<R7.SP> : 3904 
10 AC 0D 9006¢ PUSHL TYPE_CODE : 3903 
SA pp 006F PUSHL R10 ~ ; 
7E 04 AC 7D 00071 mova RECORD ADDRESS, =-(SP) F 
FEBE (CF 06 FB 00075 CALLS #6, STORE_VARIABLE_DATA ; 
04 O007A RET : 3905 


Sm 
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$1984 00:14:3 AX-11 Bliss-32 V Pa 8 | 
198 9934933 MbaCTL sRetaueuLUTiL G 2:1 atriad 
| 
} 


-EXTRN LIBSSIGNAL 


5 PSECT SUMMARY 

; Name Bytes Attributes 
: COMMON 2036 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,AL tints 

; CODE 4326 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; Library Statistics 

; qunennee S7EGG8 coesren Pages Processing 

3 File Total Loaded Percent Mapped Time 

; _$255$DUA28:C(SYSLIBILIB.L32;1 18619 55 0 1000 00:01.4 


3; Information: 


Memory Used: 495 pages 
Compication Comple 


; Warnings: 

; Errors: 

; COMMAND QUALIFIERS 

$ BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:QUEVEUTIL/OBJ=OBJ$:QUEVEUTIL MSRC$:QUEVEUTIL/UPDATE=(ENH$:QUEUVEUTIL) 
r] id Fe 4304 £086" 5046 data bytes 

: flassed. Timer 24 , 

3 Lines/CPU Min: 687 

3; Lexemes/CPU-Min: 28146 
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